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Presentación 


BREVE HISTORIA 


LOGO ('"razón, lógica", en griego) fué desarrollado en 
1.968 por Seymour Papert, en el laboratorio de Inteligen- 
cia Artificial del M.I.T., el célebre Instituto Tecnológi 
co de Massachusetts. Durante toda la década de los 70, es 
te lenguaje, derivado parcialmente del LISP (List Proce- 
ssing, lenguaje con tratamiento de listas), era soportado 
únicamente en grandes ordenadores, debido a la compleji- 
dad y sofisticación del lenguaje, así como a la capacidad 
de memoria requerida. 


A partir de 1.975 se produce el advenimiento y ''boom" 
de los microordenadores, y en 1.979, el Grupo Logo del 
M.I.T. inicia un esfuerzo de adaptación para lograr imple 
mentar este lenguaje sobre microcomputadores. En 1.981 y 
bajo la respectiva supervisión del propio S. Papert y de 
Harold Abelson, se prepararon las dos primeras versiones, 
para el Texas Instruments TI 99/4 y el Apple II. 


El TI Logo permitía el uso de "duendes" (sprites) a di- 
ferencia del Apple Logo, que a cambio, trabajaba con una 
aritmética de coma flotante (no solamente con números en- 
teros), disponía de unas instrucciones primitivas de tra- 
tamiento de listas más potentes y gestionaba el "espacio 
de trabajo" con un empaquetamiento más denso que ahorraba 
memoria. 


Durante los años 1.982 y 1.983, todas las grandes compa 
ñías (IBM, TANDY, RADIO SHACK, SINCLAIR, ACORN, ATARI, 
COMMODORE,...) han incorporado este lenguaje a sus siste- 
más informáticos. 


¿A quiénes puede interesar el Logo? 


El período de tiempo durante el cual Logo ha estado 


disponible en microordenadores es reducido, pero permite 
prever la existencia de un amplio sector de futuros u- 
suarios. Estos podrían clasificarse en 4 grupos: 


a) 


b) 


Los programadores EXPERTOS, que conocen y dominan el 
Basic pero quieren pasar a un ''lenguaje estructurado", 
rápido de ejecución, con listados legibles,... Tam- 
bién quienes quieran explotar el tratamiento de lis- 
tas, la recursividad, la facilidad de creación y uso 
de '"procedimientos', la comodidad para trabajar en 
código máquina, la ventaja de ser un lenguaje abierto, 
extensible, que cada uno construye a la medida de sus 
necesidades e intereses (pudiendo generar por módulos 
un lenguaje personal, único). 

Los programadores NOVATOS, que pueden encontrar el 
Basic plagado de convencionalismos artificiosos (por 
ejemplo: 'se debe especificar si las variables son 
alfanuméricas, enteras...'), y se desaniman ante un 
programa que no funciona por olvido de alguna nimie- 
dad. Logo es un lenguaje más inteligente, más evolu- 
cionado, de "más alto nivel' que el Basic, es decir, 
más próximo al lenguaje natural, más fácil de apren- 
der permitiendo una comunicación con el ordenador más 
flexible, más libre de "claves". Además, Logo es muy 
recomendable como primer lenguaje, porque facilita el 
paso posterior a los demás lenguajes. Lo ideal es pa- 
sar de Logo a Basic, Pascal...., aunque, en el proce- 
so recíproco, el conocimiento de estos lenguajes tam- 
bién simplifica notablemente el aprendizaje de Logo. 


c) Los NIÑOS (fatención los padres!) que encuentrar en 
Logo la posibilidad de comprender, dirigir y dominar 
la tecnología más avanzada que existe hoy en día. Lo- 
go puede lograr una auténtica "alfabetización infor- 
mática' (computer literacy). Logo desmitifica la In- 
formática y desvanece infundados temores y esperan- 
zas. Logo es el único lenguaje de programación reco- 
mendable para aprender en edades escolares, porque no 
condiciona ni estructura el pensamiento de modo arti- 
ficial (el Basic puede ser nefasto, habitúa a hacer 
piruetas mentales con sus GOTOs). Logo es el único 
lenguaje nacido de la mano de un especialista en 
"psicología cognitiva" (S.Papert). Se debe resaltar 
que Logo es un lenguaje idóneo para el aprendizaje y 
apto para los niños, pero no es sólo de niños. Como 
dice Horacio Reggini, pionero de Logo en castellano e 
impulsor del Grupo Logo argentino, "el castellano es 
un lenguaje para niños, pero también lo es de cientí- 
ficos, poetas,...". 


d) los DOCENTES para quienes la opción Logo puede ser el 
modo óptimo de E.A.O. (enseñanza asistida por ordena- 


dor). Sin relación alguna con la "enseñanza programa- 


da'', que responde a un esquema autoritario e implica 
un conocimiento reflejo, poco interiorizado, el Logo 
nace de una filosofía explícita del piagetiano Papert 
que se expone en su delicioso libro "Desafío a la men- 
te" (véase las referencias bibliográficas 1y 2). Logo 
hace más hincapié en el aprendizaje del alumno que en 
la enseñanza del profesor. Un aprendizaje activo: 'a- 
prender haciendo y enseñando a hacer al ordenador, que 
sabe menos que el escolar'. La función del profesor 
cambia de transmisor de conocimientos a guía del a- 
prendizaje. El protagonista es el colegial apoyado por 
su maestro, nunca el ordenador. Logo permite crear mi- 
crocosmos ricos y asimilables de geometría, lengua, 
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música, dibujo, ciencias..., animándole a explorarlos 
y redescubrirlos. Si para aprender inglés hay que ir a 
Inglaterra, para aprender matemáticas lo mejor es ir a 
Matematelandia, y este lugar puede resultar accesible 
con Logo. Logo favorece el conocimiento reflexivo y 
personalizado,- lo cual no significa aislado, pudiendo 
trabajar en equipo (un lema de Papert es "prohibido no 
copiar). Esta utilización de la Informática en la Edu- 
cación no uniformiza a los colegiales, sino que les a- 
yuda a afirmar su propia personalidad y mejorar su au- 
toconcepto. En EE.UU., Reino Unido, Francia,... la a- 
puesta por Logo parece definitiva. En España es el ob- 
jetivo prioritario para las personalidades más ilus- 
tres de la Educación-Informática (E. García Camarero, 
A. Requena,+...) y los grupos más avanzados (GIES de 
Santiago, Cero de Valencia, Colegios Aula y S, Igna- 
cio de Barcelona,...). 


Logo en el COMMODORE 64 


El libro se ha realizado con el Logo de este popular 
microordenador. Ello no significa restricción alguna para 
los usuarios de otros equipos informáticos, dada compati- 
bilidad casi total de las instrucciones y los programas 
descritos. 


Commodore, con licencia de M.I.T. y TERRAPIN, presenta 
una excelente versión para el ordenador personal CBM 64, 
realizada bajo la dirección de Leigh Klotz Jr., que había 
participado en los dos primeros proyectos reseñados ante- 
riormente. El lenguaje, de precio moderado (16.000 Pts), 
está disponible en España desde principios de 1984 (el 
Logo de Apple «se comercializó un año antes y el microor- 
denador TI 99/4 es prácticamente desconocido en nuestro 
país). Se compone de dos discos flexibles: uno (LOGO) es 
el lenguaje y el otro (UTILITIES DISK) es un amplio pa- 
quete de programas de demostración y con procedimientos 
suplementarios de gran utilidad, junto con un completo 
manual de fácil lectura (aunque todavía esté en inglés). 
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Implementación 


Aprovechando la cualidad del CBM 64, que permite re 
modelar todo el mapa de memoria con sus 64 KB, se ha 
obtenido un Logo de alta calidad, con "duendes", arit 
mética decimal con números racionales, tratamiento de 
listas y palabras muy elaborado, almacenamiento com- 
pacto, instrucciones musicales, variables locales,... 


La redistribución asigna 28 KB al intérprete Logo, 
1 y 8 KB para las pantallas de texto y gráfica (dispo 
nibles en todo tiempo y mezclables en proporciones va 
riables), 4,5 KB para cadenas de texto, 4 KB para la 
pila de recursión (recursividad es una de las propie- 
dades más notables del Logo y se comentará en el capí 
tulo 8) y 7,5 KB para otros apartados. Los restantes 
12 KB para la "memoria de nodos' (nodespace) son sufi 
cientes, dada la concentración del sistema empleado y 
"listas de listas'"), las rápidas y periódicas reorga- 
nizaciones para retirar lo no-permanente ('"garbage co 
llection'" = recogida de basura) y un uso inteligente, 
que corresponde al programador, del periférico mono- 
floppy 1541. 


Capítulo 1. Puesta en marcha de Logo 


El lenguaje se carga fácilmente mediante las habi- 
tuales sentencias Basic: 


LOAD ''LOGO", 8 


que carga un pequeño programa previo y RUN para lla- 
mar y cargar el programa principal. Transcurridos unos 
90 segundos, aparece el mensaje: 


COMMODORE LOGO 

COPYRIGHT (C) 1982, 1983 TERRAPIN, INC 
COPYRIGHT (C) 1981 MIT 

WELCOME TO LOGO! 


Desde este momento podemos olvidarnos del arcaico, 
desorganizado y algo perezoso Basic. 


En ocasiones se establecerán referencias con el Basic 
por ser el lenguaje más divulgado, evitándose mencio- 
nar a otros lenguajes como Lisp, Smalltalk, Prolog, 
Forth, Pascal, Ada o Modula, con los cuales tiene Logo 
mayor analogía, pero que son muy poco conocidos. 
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Logo carece de numeración en las líneas de instruc- 
ciones. Inicialmente se dispone de un conjunto de sen- 
tencias llamadas '"primitivas'. Agrupando éstas se ob- 
tienen "procedimientos", que son nuevas órdenes y pue 
den utilizarse a su vez (y eventualmente junto con 
otras primitivas) para definir nuevos procedimientos. 


Para explicarlo mejor: imaginemos que queremos ha- 
cer en pantalla un tablero de ajedrez para jugar con 
un amigo o para ver partidas famosas representadas 
(vease la foto 1 en color) en el televisor paso a pa- 
so (No intente este programa en Basic!). El programa 
sería simplemente el procedimiento AJEDREZ, Dado que 
AJEDREZ no es una primitiva de Logo, se definiría co- 
mo TABLERO PIEZAS JUGAR. Tampoco TABLERO es una ins- 
trucción inicial, luego debemos describir TABLERO, por 
ejemplo,. como MARCO CASILLAS, que a su vez serán espe 
cificados finalmente a partir de comandos primitivos. 
En el capítulo 9 se encuentra este programa completo. 


Capítulo 2. La tortuga 


Logo tiene un subconjunto de instrucciones, conoci- 
do como "el idioma de la tortuga" que permite resol- 
ver problemas geométricos. Por su facilidad de uso en 
gráficos, las primitivas fundamentales han sido incor 
poradas en extensiones de Basic o en otros lenguajes 
de programación. Aunque es una parte muy significati- 
va y, sin duda, la más difundida del Logo, no se debe 
identificar el sublenguaje de la tortuga con el len- 
guaje Logo. 


La tortuga ofrece un gran campo de actividad para 
programadores infantiles. 'Imaginemos una tortuga, 
muy obediente a las órdenes, que se mueve sobre la a- 
rena de una playa, y que al trasladarse va dejando 
con su panza un rastro que será un dibujo". Existen 
pequeños robots que, conectados al ordenador, se mue- 
ven sobre un papel y con un bolígrafo o pluma van di- 
bujando su recorrido. 


Las posibilidades del Logo para hacer todo tipo de 
dibujos, tanto artísticos como geométricos (véanse 
las figuras 1 y 2 como muestra), son inigualables. 
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Desde niños de 4-5 años sin alfabetizar aún (con el 
procedimiento INSTANT que se expone en el Anexo 1) o 
en Educación Especial, hasta físicos y matemáticos 
(consúltese la Bibliografía) han utilizado la herra- 
mienta gráfica que brinda el Logo. 


Figura 1 


55 


Figura 2 


Logo, en este caso la tortuga, sólo sabe inglés por 
el momento. El castellano se lo enseñaremos en el ca- 
pítulo siguiente. 


Al iniciar la instrucción DRAW (dibujar) aparece 
nuestra tortuga, representada por un triángulo isósce 
les, en el centro de la pantalla y orientada hacia a- 
rriba (figura 3). Se ve a la tortuga en la pantalla 
gráfica y también aparece, en otro color de fondo, 
parte de la pantalla de texto usada para las órdenes. 
Le indicamos FORWARD 100 (adelante 100 pasos) y des- 
pués de pulsar como siempre RETURN, para que 'nos oi- 
ga', vemos que se mueve y queda dibujado un segmento 
de longitud 100 (figura 4). A continuación tecleamos 
RIGHT 90 (derecha 90 grados) y se observa que la tor- 
tuga no avanza sino que gira un ángulo recto hacia su 
derecha (figura 5). Con FORWARD 100 se desplaza hacia 
la derecha (figura 6). La tortuga también puede mover 
se sin dejar rastro: para ello debe ordenarse PENUP 
(=levanta la pluma). Lo contrario es PENDOWN (=baja 
la pluma). 


[AS 


Figura 3 
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Figura 4 


Figura 6 


Figura 5 


La turtuga se mueve en un entorno de alta resolu- 
ción, con 320 x 200 puntos, donde son posibles los 
16 colores, tanto como para el fondo como para el ras 
tro de la tortuga. Normalmente, la tortuga está en el 
modo SINGLECOLOR, pero ordenando DOUBLECOLOR pueden 
coexistir 2 colores distintos para puntos, aparte del 
color de fondo, en cada una de las 40 x 25 espacios 
en que se divide la pantalla gráfica, a cambio la re- 
solución baja a 160 x 200. 


Dado que en Logo cualquier letra o palabra signifi- 
ca un procedimiento, las variables (numerales, litera 
les o listas)'deben diferenciarse para evitar la con- 
fusión. Cuando se define su valor, se anteponen unas 
comillas al nombre de la variables. Así: MAKE "N 5 ha 
ce que la variable 'N valga 5. Cuando nos referimos 
al valor (no al nombre) la variable, debe aparecer 
precedida por dos puntos. Así: FORWARD :N quiere de- 
cir adelante 5, dado que el valor de N es 5. No debe 
dejarse espacio en blanco entre "o : y la variable. 
Si N aparece así significa procedimiento N (como pro- 
cedimientos eran AJEDREZ,...). 
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Instrucciones gráficas 
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La primitivas gráficas forman una colección numero- 
sa, y podemos destacar las siguientes: 


SINGLECOLOR, DOUBLECOLOR. Si los 64000 puntos 

(=320 x 200) pudiesen ser de cualquiera de los 16 co- 
lores disponibles, serían precisos 32000 bytes de me- 
moria dedicados al color de la pantalla gráfica. Agru 
pando los pixels en bloques de 8 x 8 (el espacio de 
un carácter en una pantalla de texto) y permitiendo a 
lo sumo 2 colores en cada bloque, aparte el de fondo, 
solamente se requiere 1 KB. 


FORWARD :N, BACK :N = adelante, atrás N pasos en el 
sentido hacia el que apunta la tortuga. Algunas primi 
tivas, las más usuales, tienen una forma abreviada. 
Así FD = FORWARD y BK es igual a BACK. En adelante 
presentaremos entre parentesis las siglas, cuando e- 
xistan, antecediendo a la instrucción correspondiente. 


(RT) RIGHT :N, (LT) LEFT :N = gira a la derecha, iz 
quierda N grados sexagesimales. 

(PD) PENDOWN, (PU) PENUP baja o sube la pluma para 
dejar, o no, rastro. 

(HT) HIDETURTLE, (ST) SHOWTURTLE para ocultar o mos 
trar la tortuga, que es el sprite O. 

HOME lleva a la tortuga al centro, coordenadas 0,0, 
y la orienta hacia arriba. 

(BG) BACKGROUND :N, (PC) PENCOLOR :N para dar un co 
lor del O al 15 al fondo y a la tortuga (y a su ras- 
tro si PENDOWN). Si PC -1 la tortuga borra la trayec- 
toria por la que pasa (es equivalente a PENERASE). 


STAMPCHAR :N permite representar caracteres en la 
pantalla gráfica. STAMPCHAR "A dibujará una letra A. 
Solamente es bien legible en SINGLECOLOR. 


La pantalla de texto puede tener definidos los colo 
res del fondo y de los caracteres mediante TEXTBG :Ny 
TEXTCOLOR :N. Para presentar únicamente la pantalla 
gráfica o de texto se emplean FULLSCREEN o TEXTSCREEN. 
Para combinarlas SPLITSCREEN que presenta las 10 lí- 
neas inferiores de la pantalla de texto, con sus colo 
res característicos según se hayan establecido. Para 
variar la proporción entre ambas pantallas existe 
(SPLITSCREEN :N) siendo :N el número de líneas de texto 
a mostrar. 

(CS) CLEARSCREEN y CLEARTEXT borran respectivamente 
las pantallas gráfica y de texto. 

DRAW (dibujar) y NODRAW (no dibujar) pasan al modo 
gráfico o de texto. 

WRAP (envolver, enrollar) y NOWRAP permiten conec= 
tar, o no, los lados izquierdo y derecho, y superior 
e inferior de la pantalla gráfica. Tras DRAW, si la 
tortuga se encuentra en estado WRAP y desaparece por a 
rriba, reaparecerá por abajo (si estuviese en NOWRAP 
daría error). 

SETX :A, SETY :B, SETXY :N :M pone a la tortuga en 
la abscisa A, o en la ordenada Bo en las coordena- 
das :N, :M. 

XCOR (coordenada x) e YCOR indican la abscisa y la 
ordenada en la que está la tortuga. 

HEADING (orientación) da el ángulo en el que mira 
la tortuga, de O a 360 grados. O es hacia arriba, 90 
hacia la derecha,...(SETH) SETHEADING :N pone a la 
tortuga en la dirección :N. TOWARDS :X :Y utilizado 
de la forma SETH TOWARDS :X :Y pone a la tortuga diri 
gida hacia el punto de coordenadas :X, :Y. 

DRAWSTATE da como resultado una lista conteniendo 
las condiciones de dibujo: pluma arriba o abajo; tor- 
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tuga visible o no; color de fondo y de rastro; modo 
DRAW o no; multi o monocolor; pantalla gráfica, de 
texto o mezcladas; color del fondo y de los caracte- 
res del texto. 

Otras sentencias primitivas de la tortuga que se re 
fieren a los "duendes" se explican en el capítulo 6. 


Capítulo 3. ¡Hablemos castellano! 


Traducir externamente las instrucciones primitivas 
en inglés a procedimientos en castellano (o en el i- 
dioma que se desee) es trivial, siempre que se conoz- 
ca el método de Definición de Procedimientos, que se 
explica a continuación. 


Para crear una nueve instrucción se emplea usualmen 
te la primitiva TO, seguida del nombre del procedi- 
miento y los parámetros que utilice como argumentos. 
Por ejemplo: 


TO CUADRADO :L (al pulsar RETURN se pasa al modo 
Edición) 

FD :L RT 90 FD :L RT 90 FD : L RT 90 FD :L RT 90, 
(se recuerda que FD=FORWARD y RT=RIGHT). 


Se teclea CONTROL -C o la tecla STOP y al salir del 
modo edición aparece en la pantalla de texto, "PLEASE 
WAIT...' (por favor espere...) y casi instantáneamente 
CUADRADO DEFINED. Ahora basta pulsar CUADRADO 40 para 
que la tortuga avance 40 pasos, gire 90 grados a la de 
recha, avance... y dibuje un cuadrado de 40 pasos de 
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lado. La nueva orden CUADRADO queda almacenada en el 
"espacio de trabajo" y no se borrará hasta que ordene- 
mos GOODBYE, que reinicializa el Logo con las primiti- 
vas solamente. Antes de pulsar GOODBYE, sería aconseja 
ble guardar en diskette los procedimientos creados, si 
son interesantes. Con SAVE '"NOMBRE.DEL.FICHERO se. depo 
sita en el disco de trabajo todos los procedimientos 
definidos y las variables globales empleadas con sus 
valores. Para recuperar los programas que no son sino 
super-procedimientos, se emplea READ ''NOMBRE.DE.FICHE- 
RO. Si algún fichero grabado ya no es útil ERASEFILE 
"NOMBRE.DE.FICHERO lo borrará. 


Si se quiere anular un procedimiento innecesario del 
espacio de trabajo, para disponer de más memoria de no 
dos, basta ordenar ERASE "NOMBRE (por ejemplo, ERASE 
'"'CUADRADO). Para volver al modo Edición se emplea EDIT 
(o abreviadamente ED), lo que permite modificar el úl- 
timo procedimiento. ED ALL muestra todos los procedi- 
mientos definidos separados por la instrucción END. 
Así mismo en todo momento podemos repetir TO CUADRADO 
y nos aparecerá en el modo Edición la definición ante- 
rior para reformarla si fuera preciso. 


Otra forma de definir procedimientos, menos cómoda, 
es mediante la instrucción DEFINE. El ejemplo anterior 
se hubiese podido realizar así: DEFINE: CUADRADO [C:13 
[FD:L RT 90 FD :L RT 90 FD :L RT 90 FD :L RT 90)| DEFI 
NE toma el nombre del procedimiento (precedido de ") y 
una lista (entre corchetes), siendo el primer elemento 
a su vez una lista con las variables del procedimiento 
(si no las tuviere, la lista debe aparecer como []). 


La primitiva TEXT ''NOMBRE nos muestra en forma de 
lista el procedimiento "NOMBRE, que ha debido ser defi 
nido anteriormente. 


La traducción de las sentencias Logo es inmediata, 
según se deduce de lo expuesto. Por ejemplo, mediante 


TO ADELANTE :N 
FD :N 


y pulsando la tecla STOP el ordenador ya entiende la 
orden ADELANTE :N. Su forma compendiada, podría ser: 


TO AD :N 
ADELANTE :N 


y así crear un fichero que, titulado TRADUCTOR y pasa 
do a diskette con SAVE "TRADUCTOR, nos serviría para 
que otro día tras cargar el Logo y leer este archivo 
con READ ''TRADUCTOR, dispongamos ya de Logo en espa-= 
ñol. En el Anexo I se ofrece el listado del programa 
1 Traductor de interés para programadores principian- 
tes y el programa 2 Rosal con órdenes en castellano. 
En el resto del libro se ha utilizado las instruccio- 
nes originales en inglés (genéricas) por no imponer 
un vocabulario demasiado específico. 


Parece que COMMODORE está preparando una versión 
con primitivas en castellano, lo que sería preferible 
por normalizar la nomenclatura y para reservar el es- 
pacio de trabajo para otros menesteres. 
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Capítulo 4. Instrucciones Logo 


Se enumeran a continuación otras sentencias primiti 
vas, con una sumaria explicación. Se recuerda que las 
principales órdenes tienen abreviaturas que se indi- 
can en paréntesis. 


Primitivas condicionales, de control y de variables 
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Condicionales: 


IF (condición) THEN (acción 1) ELSE (acción 2). Si 
la condición es verdadera, realiza la acción 1. En ca 
so contrario, la acción 2. Como en Basic (aunque el 
THEN puede suprimirse en Logo). 

NOT (proposición) invierte el resultado de la propo 
sición, de verdadero a falso o viceversa (como en Ba- 
sic). 

ALLOF, ANYOF equivalentes a AND y OR. Necesitan co- 
mo argumentos al menos 2 condiciones y dan como resul 
tado "verdad", si todas o alguna de las proposiciones 
son ciertas. 

TEST (condición) analiza la validez de la condición 
y da TRUE (verdadero) o FALSE. 

(IFT) IFTRUE, (IFF) IFFALSE ejecuta el resto de la 
línea, una acción, según el resultado del TEST prece- 
dente. 


De control: 


GO (procedimiento), realiza el procedimiento. Es su 
perflua (como LET en Basic) y basta teclear el nombre 
del procedimiento. Se utiliza ocasionalmente para ma- 
yor claridad. 

GOODBYE o pulsando simultáneamente las teclas STOP 
y RESTORE, para limpiar el espacio de trabajo y resta 
blecer el Logo inicial, pero no borra el área de len- 
guaje máquina del usuario. 

(OP) OUTPUT efectúa la evaluación de un procedimien 
to y, al obtener un resultado, se detiene en ese pun- 
to y envía el valor al procedimiento precedente. 

RUN :N toma como argumento una lista :N y la ejecu- 
ta paso a paso como si fuese tecleada. ' 

REPEAT :N :L ejecuta como RUN la lista :L tantas ve 
ces como indica el valor :N. El procedimiento CUADRA- 
DO :L podía ser simplemente REPEAT 4 [FD :L RT 90). 

STOP detiene la ejecución del procedimiento en el 
que aparece y devuelve el control al procedimiento 
previo. Algo similar al RETURN del Basic. 

TOPLEVEL (o pulsando CONTROL-G) interrumpe la ejecu 
ción de todo el programa. (END se utiliza en la defi- 
nición de procedimientos y es colocado automáticamen- 
te cuando se sale del modo Edición). 


Relativas a las variables: 


LOCAL "A hace local a la variable A en la ejecución 
de un procedimiento y no mantiene su valor después 
(con el consiguiente ahorro de memoria). Las varia- 
bles que son argumentos qe un procedimiento tienen és 
te carácter siempre. 

MAKE "A :B crea una variable global (a menos que 
sea antecedida por LOCAL "A) y le asigna el valor :B 
(número, palabra o lista, que a su vez puede ser de 
números, palabras o listas,... ). 
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THING "A equivale a :A. 
THING? "A da como resultado TRUE (verdadero) si la 
variable 'A tiene un valor asignado. 


Cálculo 


Aparte de los operadores y las funciones comunes 
con el Basic como =, +, -=, X, /, , » SIN :N y COS 
:N (seno y coseno operando con grados, no con radia- 
nes), SQRT :N (raíz cuadrada, como SQR en Basic), 
RANDOM :N (da al azar un número entero entre O y 
:N-1), RANDOMIZE (modifica la aleatoriedad de RAN- 
DOM), INTEGER :N (parte entera de :N, como INT en Ba 
sic), QUOTIENT :A :B y REMAINDER :A :B (cociente y 
resto enteros de dividir :A entre :B, como DIV y MOD 
en Basic), se dispone de las siguientes instrucciones: 

ROUND: A redondea al entero más cercano 
(ROUND 4.8 = 5, INTEGER 4.8 = 4). 

NUMBER? :A da TRUE si la variable "A tiene asociado 
un número como valor, no una palabra ni una lista. 

ATAN :A :B da en grados el arco tangente de :A/:B. 

BITAND, BITOR, BITXOR toman como argumentos 2 ente- 
ros y dan como resultado su composición booleana me- 
diante el conector lógico AND, OR y OR exclusivo, res 
pectivamente. Ejecutan bit a bit las operaciones lógi 
cas AND, OR y XOR como en Basic. 
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Entrada salida 


Las principales primitivas son: 


ASCII :N y CHAR :M, la primera toma un carácter co- 


mo dato y da su número de código ASCII y la segunda 
es su recíproca. Como ASC y CHR$ en Basic. 

CURSOR :C :F, coloca en cursor en la columna :C y 
fila :F. Se complementa con CURSORPOS que indica la 
posición actual del cursor. Como PRINT AT en Basic. 


JOYSTICK :N y JOYBUTTON :N, PADDLE :N y PADDLEBUTTON 


:N para control de estos periféricos de entrada, muy 
útiles en juegos de animación, especialidad del Logo. 
PRINTER y NOPRINTER para activar y desactivar la 

impresora. 

(PR) PRINT :N, PRINT1 :N FPRINT :N para presentar 
resultados en distintas formas. 

CLEARINPUT limpia el buffer del teclado. 

(RQ) REQUEST recoge una entrada en forma de lista 
tras pulsar RETURN. Similar al INPUT del Basic. 

(RC) READCHARACTER da como resultado el primer ca- 
rácter del buffer de teclado y, si está vacío, espe- 
ra a la primera pulsación. Semejante a GET. 

RC? da TRUE si alguna tecla es pulsada. 


Gestión de la unidad de disco y del espacio de trabajo 


Las principales instrucciones primitivas de este a- 
partado son: 


DOS :L para formatear un diskette, o copiar, cam- 
biar de título o borrar programas. 

SAVE :P, READ :P, ERASEFILE :P que guarda, lee y 
borra el programa P en un fichero del diskette de 
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trabajo. Al recuperar un programa, READ :P, si se ha 
definido una variable de título ''STARTUP (MAKE 
"STARTUP :X), es ejecutado inmediatamente su conteni 
do, que debe ser una lista, como con RUN :X. 

CATALOG muestra los programas disponibles en el 
disco. Los títulos aparecen seguidos de los sufijos. 
LOGO, .PIC1, .PIC2 O .SHAPES según contengan un pro- 
grama, el dibujo y color de la copia de una pantalla 
gráfica o la forma de un 'duende' (ver más adelante). 
Los archivos en código máquina cambian el sufijo. 
(PO) PRINTOUT :A indica la definición del procedi- 
miento :A. Puede utilizarse con ALL, PROCEDURES, NA- 
MES o TITLES resultando la definición de todos los 
procedimientos y valores de las variables, o sólo 
los procedimientos, o sólo las variables o únicamente 
los títulos de procedimientos, almacenados en el espa 
cio de trabajo. 

POTS = PRINTOUT TITLES. 

SAVEPICT :D,READPICT : D,ERASEPICT :D que salva, 
lee o borra un archivo, titulado :D que contiene una 
reproducción exacta (salvo sprites) de la pantalla 
gráfica. 

ERNAME :A borra la variable global :A del espacio 
de memoria. 


Ayuda a la programación 


Logo dispone de las siguientes primitivas: 


TRACE y NOTRACE para ejecutar, o no, paso a paso el 
programa. 

PAUSE o pulsar CONTROL-=Z, congela el desarrollo del 
programa y permite analizar la situación (estado de 
las variables,...). 

(CO) CONTINUE reanuda la ejecución del programa 


tras la pausa producida por la instrucción anterior. 

CONTROL-W actúa como PAUSE, pero basta pulsar una 
tecla para que comience de nuevo. 

En Logo se pueden superponer los programas sin in- 
terferirse (al leer, un programa no se borra el ante- 
rior), por lo que no existe ninguna primitiva análoga 
a Merge. 

Se incluye bajo este epígrafe otra variedad de sen- 
tencias que el manual califica de '"comandos miscelá- 
neos', y que se caracterizan por tener como prefijo 
un punto. 

«ASPECT :A modifica la escala vertical de la panta- 
lla gráfica. Permite corregir'esos círculos aplasta- 
dos o estirados', debidos al diferente número de lí- 
neas de barrido de los monitores y televisores. Ordi- 
nariamente :A vale 0.768. Si aumentamos :A se separan 
entre sí los puntos verticales contiguos. 

«CALL :A :B para llamar a subrutinas escritas en len 
guaje máquina. 

«CONTENTS da como resultado una lista con los non- 
bres de todas las variables, procedimientos y pala- 
bras utilizadas en la definición de procedimientos. 

.DEPOSIT :A :B y .EXAMINE :A similares a Poke y 
Peek del Basic. 

«GCOLL produce una limpieza de la memoria de nudos 
(garbage collection). 

«NODES indica el número de nodos libres. Debe prece- 
derse de .GCOLL. 

«SPRINT :A utilizada en el editor de "duendes". 

«OPTION :A :B :C Permite modificar el comportamiento 
de algunas instrucciones primitivas (DRAW, .DEPOSIT, 
«EXAMINE, EDIT, PRINTER, READCHARACTER, SAVE, STAMP- 
CHAR y TEXTSCREEN). 
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Capítulo 5. Palabras y listas 
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Este subconjunto de instrucciones el el más repre- 
sentativo, junto con el idioma de la tortuga, del Lo- 
go. Asómbrense los usuarios del Basic de la senci- 
llez y potencia de estas primitivas!. 

Una definición recursiva de Lista sería: "un conjun 
to eventualmente vacío de átomos o listas". Por ejem- 
plo, son listas: [1 2 3], [A BE DE E EFE] o [(X Y) 
[ac Bv] TH Ju)],... 

WORD? :A LIST? :A da verdadero si la variable A 
es una palabra o lista respectivamente. (Recuérdese 
NUMBER?) . 

EMPTY? :A resulta TRUE si A es una palabra sin le- 
tras "Ho una lista vacía [). 

MEMBER? :A :B será verdadero si A es una letra, pa- 
labra o lista contenida en B, siendo B respectivamen- 
te una palabra, lista o lista de listas. 

COUNT :A indica el número de letras de A si es una 
palabra y el número de palabras si A es una lista. 

ITEM :A :B extrae el elemento número :A de :B, que 
debe ser una palabra o lista. 

FIRST :A, LAST :A toma el primer o último elemento 
de A. Si A es una palabra, obtiene una letra. Si A es 
una lista extrae una palabra. Si A es una lista de 
listas, dará una lista. 


(BF) BUTFIRST :A, (BL) BUTLAST :A obtiene como re- 
sultado todo el valor de A excepto el primer o último 
elemento. Ejemplo: BUTFIRST ''1234 será "234. 

FPUT :A :B, LPUT :A :B pone :A delante o al final 
de :B. 

WORD :A :B concatena en una sola palabra :A y :B. 
Al igual que en las 2 siguientes instrucciones, puede 
haber más de 2 variables. 

(SE) SENTENCE :A :B ... crea una lista simple conte 
niendo como elementos a :A, :B, ... si son pálabras o 
a sus elementos si se trata de listas. 

LIST :A :B... origina una lista con :A, :B,...Ejem- 
plo: (LisT 12] (3) (a 5J)es [(12) 03) (4 5)), mientras 
que (SENTENCE [12] [3] (4 5))os [12 3 4 5). 

En los capítulos 9 y 10 se incluyen varios programas 
y proyectos relativos a listas y palabras (Ajsdrez, 
Psiquiatra, Cerco, Reloj,...). Aquí se presenta como 
ejemplo el programa 3 titulado Palabra. Se trata de a 
divinar alguna de las palabras contenidas en una lis- 
ta. Se pulsa una letra (sin RETURN) y mediante acier- 
tos y errores, se llega a descubrir una de las pala- 
bras almacenadas. Para cargar el programa teclea los 
siguientes procedimientos (excluyendo el END final). 
Luego pulsa MAKE "STARTUP [INICIO] y guarda todo el 
diskette con SAVE "PALABRA. Con la orden READ '"PALA- 
BRA se inicia el juego automáticamente. 


33 


PROGRAMA 3 


PROGRAMA 3 


TO RENOVAR :A 
IF FIRST :PALABRAS = :M PR [LISTO?...] ELSE MAKE "A LPUT FIRST :PALABRAS :A 
MAKE "PALABRAS BF :PALABRAS 
IF :PALABRAS = [] MAKE "PALABRAS :A ELSE RENOVAR :A 

END 


“TO ALGÍ :N :B 

IF :N = " TEXTBG 10 PR [...VAS BIEN!J PALABRA :T + 1 :M ELSE 1F € FIRST :N = FI 
RST :B ) ALGÍ BF :N BF :B ELSE ALO BF :A 

END 


TO ALG :A 

IF NOT :A = CJ IF FIRST :M= FIRST ITEM 1 :A MAKE "A :A ALGÍ :M ITEM 14 :A ELSE 
ALG BF :A 
END 


TO INICIO 

MAKE "PALABRAS [CUADRO GEMA CASA CAZADOR PERRO ESCUELA ADIVINO ASTRONALITA OVNI] 
TEXTSCREEN CLEARTEXT PALABRA 1 " 

END 


TO PALABRA :T :N 
IF :PALABRAS = [] PR [SE ACABO...J TOPLEVEL 
LOCAL "1 PRINT1 € SE :T C.-] ¿N > MAKE "I RC PRINT1 :1 MAKE "M WORD :N :1 
IF MEMBER? :M :PALABRAS PR (] PR CHAS ACERTANDO. PULSA UNA TECLA PARA REPE-TIR. ] 
RENOVAR [] PR RC PALABRA :T + 1" ELSE ALG :PALABRAS TEXTBG 14 PR [,..MALJ PALA 
BRA :T +1 BLO:mM 
END 
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Capítulo 6. Duendes 


Logo dispone únicamente de las siguientes primitivas 
para los "sprites": 


TELL :N para llamar a uno de los "duendes" (0-7) 

WHO indica el número de sprite activado. 

SETSHAPE :N asigna la forma :N (0-7) al duende pre- 
sente. La configuración O, tortuga omnidireccional, 
sólo puede ser atribuída al sprite 0. 

SHAPE da como resultado el número de forma del duen 
de activado. 

El resto de instrucciones típicas de sprites son 
procedimientos y se encuentran en tres programas del 
diskette Logo Utilities. El fichero Sprites contiene 
procedimientos como BIGX, BIGY, SMALLX, SMALLY para 
variar el tamaño del duende en altura o anchura, TB? 
y TS? para detectar choques del sprite activo con di- 
bujes u otros sprites,... El archivo SPRED dispone de 
un editor de formas de los duendes EDSH (EDit SHape), 
SAVESHAPE :A y READSHAPE :A para salvar y leer confi- 
guraciones,.. El programa Velocity tiene instruccio- 
nes para poner en movimiento a los pprites. Cargando 
estos 3 ficheros se dispone de una colección exhausti 
va de sentencias. El Utilities Disk también ofrece 4 
archivos, con formas de animales, vehículos,... y 4 
programas de animación, como demostración: Runner, Di 
nosaurs, Submarine y Spritesdemos. 
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NOTA 
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Aunque los programas y proyectos se han reunido en 
los capítulos 9 y 10 dedicándose algunos a duendes 
(Dados, Cerco, Rotar, Paredes,...), se presenta aquí 
como ejemplo el programa 4 denominado Formas. Muestra 
los distintos grupos de configuraciones ofrecidos en 
el Utilities Disk (véase la foto 5). Deben teclearse 
los procedimientos expuestos y luego recuperar las 
instrucciones de duendes con READ '"SPRITES. Se pulsa 
SAVE "FORMAS. 


En cualquier momento, bastará READ 'FORMAS del dis- 
kette del lector y para que el programa funcione, se 
ordena INICIO después de insertar el Utilities Disk 
en la unidad de discos (para leer al azar las configu 
raciones de duendes). Muestra 8 formas distintas en 
cada caso y espera a que pulsemos una tecla cualquie- 
ra para cambiar el conjunto de formas de duendes. 


PROGRAMA 4 


PROGRAMA 4 


TO LIMPIA :1 

TELL :1 HT REPEAT 2009 (] 
IF :I = 0 HT STOP 

LIMPIA :1 - 1 
END 


TO REPE 

JF RC? LIMPIA 7 READSHAPES ITEM 1 + RANDOM 5 CSHAPES VEHICLES ANIMALS ASSORTED 
RUNNER] CLEARINPUT CENTRO 7 SP O ELSE REPE 
END 


TO SP :N 

FULLSCREEN TELL :N PU HOME ST PC 2 + :N BIGX BIGW 
REPEAT 409 [] 

IF ¿N < 4 SETY 55 ELSE SETW - 55 

SETX € - 105 + 70 k ( :N - 4 k INTEGER ( :N/4)3)3) 
IF :N = 7 REPE ELSE SP :N + 1 
END 


TO CENTRO :1 
TELL :1 HOME ST REPEAT 44 (] 
IF :I = 0 HT STOP 


CENTRO :I - 1 
END 
TO INICIO 

+ASPECT 0.9 BG 1 PU CENTRO 7 SP Y 
END 
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Capítulo 7. Música 


Las instrucciones musicales son procedimientos y se 
cargan del Utilities Disk con READ "MUSIC, que automá 
ticamente (con la variable STARTUP) lee también el 
fichero SOUND. Las sentencias recogidas son: 


SSH :N que produce un sonido seco y deja transcu- 
rrir un tiempo de :N unidades. La duración de estas 
unidades puede regularse con la primitiva TEMP :M. 

SSHER :N cuyo argumento :N es una lista de números a 
los que se aplica el SSH. 

SING :N para tocar una melodía cuyas notas (tonos) 
están contenidos en la lista :N. Cada nota se mantie- 
ne un tiempo constante. 

PLAY :N :M hace sonar las notas indicadas en :N con 
una duración variable expresada por :M. Ambas listas 
deben cumplir : COUNT :M>= COUNT :N. 


Para crear sonidos originales se dispone de: 


WAVE :N define la forma de la onda sonora, que pue- 
de ser triangular, en diente de sierra, pulso rectan- 
gular,... 

ATTACK :N establece el tiempo de ataque y DECAY :N 
el tiempo de caida. 

SUSTAIN :N y RELEASE :N fijan los tiempos de soste- 
nido y de relajación. La variable :N de las 4 últimas 
instrucciones puede variar entre 0-15. 

SOUND :A :B :C :D :E es el procedimiento básico (de 
más bajo nivel), empleado en las anteriores senten- 
cias. Los 5 datos de entrada son nota, duración, un 
número combinación de ataque/demora, otra cifra mez- 
cla de sostenido/emisión y forma de orlda. 


Con todas estas ayudas es muy fácil programar músi- 
ca. El diskette Utilities presenta un programa de de- 
mostración llamado Twinkle. 


Como ejemplo se presenta Melodías, un elemental pro 
grama de música con notas de duración constante. En 
los capítulos 9 y 10 se incluyen programas y proyec- 
tos en los que intervienen instrucciones musicales 
(Organo, Morse, Disparo, Reloj, Botar). Recuérdese 
que se debe haber copiado el programa Music del Utili 
ties Disk, véase la Nota del capítulo anterior, antes 
de que funciones Melodías. Tras teclear los procedi- 
mientos indicados, púlsese MAKE "STARTUP (READ "MUSIC 
M1 M2 M3 M4 M5] y SAVE "MELODIAS. Hecho esto, bastará 
READ "MELODIAS para que se ejecute el programa 5 auto 
máticamente. 
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PROGRAMA 5 


PROGRAMA 5 


TO Mi 
TEXTSCREEN CLEARTEXT PR [ROMANCE DE L" AMOURI 


SING [999975542259 14 14 14 14 12 1010977 9109109121099 
75542444454 2666642211101 1111 11 11 1311 1199911 13 


14 14 14 14 13 12 11 1111 11976666742) 
END 


TO M2 
PR [CIELITO LINDO] . 
SING [12 12 9 11 7 1212911 7 121291175211 11 11975524577 
42016 14 129 14 14 12 161279799717 1714799757424) 

END 


TO M3 

PR [0 SOLE MIOJ 

SING [14 12119779117 6467964467 9422 14 1211977911 
1211911979211 911 97 19 19 18 14 14 18 18 16 12 12 18 18 16 12 12 9 


12 14 14 15 12 19 15 14 14 1197 1411967) 
END 


TO M4 
PR [KATIOMAJ 


SING [245253424 -34574775429149 12 14 12 10 10979210 
54-3542914 12 14 12 10109792107954-3542) 

END 

TO 15 


PR [TPONKAI 

SING [4999989118441 
-10-34911 12119542591 
END 


2902244911 121195425911943 
194542-10-3] 
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Capítulo 8. Recursividad 


La descripción, aunque hubiese sido muy pormenoriza- 
da, de las primitivas y los procedimientos aportados 
(Anexo 2) no permite descubrir la auténtica esencia de 
Logo. Unicamente programando se revela toda la armonía 
y concisión de este lenguaje. Antes de pasar a una se- 
lección de programas variados, capítulo siguiente, se 
expone el análisis detallado de un programa y el tema 
de la recursividad. 


Análisis de un programa 


Planteamiento: Se trata de hacer un reloj analógico, 
de 3 agujas (foto 6 y figura 7) que funcione en tiempo 
real y haga tic-tac. 


Figura 7 
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Solución: Como hay que dibujar una circunferencia 
(CIRCLEL), poner números en la pantalla gráfica (STAMP) 
y hacer ruido (SSH) son necesarios los archivos Arcs, 
Stamped y Music, que deben estar presentes en el disco 
del lector (véase la Nota del capítulo 6). Tecleando 
los 3 procedimientos adjuntos y pulsando MAKE "STARTUP 
(READ "ARCS READ '"STAMPER READ "MUSIC RELOJ) y SAVE 
"RELOJ se guarda el programa. Con READ "RELOJ el pro- 
grama 6 funcionará perfectamente. 


PROGRAMA 6 


PROGRAMA 6 


TO HORAS :A 
IF EMPTY? :A CAMINA :H :M 19 ELSE PU SETXY O 0 RT 30 FD 98 PD FD 15 PU BK 25 PD 


STAMP FIRST :A HORAS BF :A 
END 


TO CAMINA :H :M :S 


PU HOME SETH 30 * :H PDPC 1 1F :M= 59 1F :S = 59 PC - 1 MAKE "H :H +1 
FD 54 PU HOME SETH 6 k :MPDPC 1 1F.:S = 59 PC - 1 MAKE "M :M+ 1 

FD 60 PU HOME SETH 6 k :S PD FD 70 

SsH 5 PU HOME SETH 6%* <( :S - 1 > PC - 1 PDFD7O 

CAMINA :H REMAINDER :M 60 REMAINDER ( :S + 1 > 60 

END 

TO RELOJ 


+ASPECT 0.9 DRAbI HT 

PR [HORA] MAKE "H FIRST RQ 

PR [MINUTOJ MAKE "M FIRST RQ 

FULLSCREEN PU SETX XCOR + 100 PD CIRCLEL 194 
HORAS [1234356780910 11 12] 
END 


Aquellos lectores que hayan leído pacientemente el 
libro hasta aquí podrán entender el listado y valorar 
justamente las posibilidades del Logo. 

RELOJ hace que la esfera no aparezca ovalada en pan 
talla, pasa al modo dibujo y oculta la tortuga; pide 
la hora y minuto al usuario; borra la parte de panta- 
lla de texto y situándose adecuadamente traza la cir- 
cunferencia del reloj y llama a HORAS. Este procedi- 
miento comprueba si su argumento (una lista) carece de 
elementos. En caso negativo dibuja los números y rayas 
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de las doce horas y en cada ocasión quita. el primer e- 
lemento de la lista. Cuando el parámetro :A es una lis 
ta vacía pasa a CAMINA con la hora y minuto indicados 
y 19 segundos que ha empleado en RELOJ y HORAS. CAMINA 
dibuja en cada segundo las 3 agujas y suprime la posi- 
ción anterior del segundero. Si marca 59 segundos, bo- 
rra la posición actual del minutero y, si además es el 
minuto 59, oculta la aguja horaria. Quienes se animen 
a programar en Logo, pueden mejorar este programa fá- 
cilmente, poniendo colores, números romanos, campana- 
das y melodías a las horas, a las medias, haciendo apa 
recer un cuco o algunas figuras al dar las horas,... 
El valor 5 de SSH 5 se ha puesto para retardar ([este 
Logo es tan rápido...!) y ajustarlo al tiempo real. 
lAht, si el reloj atrasa o adelanta, se regula con el 
parámetro de SSH (4.8 Ó 5.2). 


La recursividad 


Es una propiedad que permite a un programa ''llamarse 
a sí mismo", La mayoría de los Basic son poco eficaces 
al ejecutar programas recursivos (por carecer de varia 
bles locales y llamada de procedimientos por su nombre 
Logo induce al uso y abuso de este tipo de programas. 
El procedimiento CAMINA es recursivo. CAMINA :H :M :S 
se encarga de poner las 3 agujas en la hora :H, minuto 
:M y segundo :S, borrar la posición ocupada en el ins- 
tante anterior y hacer tic-tac. Al finalizar suma 1 al 
número de segundos, se asegura que los segundos y minu 
tos estén en el intervalo 0-59 (mediante REMAINDER :M 
60) y comienza de nuevo. También HORAS :A es recursivo 
hasta que :A sea una lista vacía por efecto de BF. En 
ambos procedimientos se ha utilizado la clase de recur 


sividad más elemental. 
La recursividad puede observarse en el procedimiento 


factorial siguiente: 
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TO F :N 
IF :N = 1 OP 1 


OP :NEFG:N1 
El factorial de un número entero es el resultado de 


multiplicarlo por los sucesivos enteros menores hasta 
llegar a 1. Así factorial de 1 es 1, de 2 es 2.1= 2, de 
3 es 3.2.1 = 6,... El procedimiento descrito observa si 
el argumento es 1 y en ese caso da como resultado 1, 
sin aplicar recursividad alguna. Si :N es 2, pasa la 
primera línea y guarda el 2 para multiplicarlo por F 1, 
obteniendo 2. Y así sucesivamente. (Para los matemáti- 
cos: Como factorial de O es 1, la primera línea debe 
ser IF :N = f OP 1). 


Análogamente, la función exponencial, :A base eleva- 
do al exponente :B, que no es instrución primitiva, 
puede definirse como: 


TO E :A :B 
IF :B DH OP 1 
OP ¡AXE G:cA :B-1 


Il 


Otra forma de recurrencia, de más difícil comprensión 
ocurre cuando quedan líneas pendientes detrás de la 
auto-llamada del procedimiento. Por ejemplo: 


TO COMPONER :A 


IF :A = " STOP 
COMPONER BL :A 
PR :A 


El resultado de COMPONER "LIBRO es 


[ erjea3do3o4 


9) 


ía 


otograf 


Y 
F 


Fotografía 3 


Fotografía 4 


G BIje1BoJ04 


9 BIJRagogo 


¿ erjeaBo304 


Fotografía 8 


Capítulo 9. Dibujos, Juegos y Aplicaciones 


Se ha reunido una colección de 17 programas, acompa- 
ñados de una breve explicación, como muestra de las po 
sibilidades del Logo. 


Dibujos 


Define algunos procedimientos que producen dibujos 
geométricos sorprendentes por su diversidad, al variar 
los parámetros de entrada. Con los procedimientos GO 
de un argumento, G1 de 2 argumentos y G3, G4 y G5 de 3 
argumentos se obtienen dibujos. Las figuras 8-22 son 
algunos ejemplos. Las órdenes empleadas han sido res- 
pectivamente FO 170, FO 60, F1 65 140, F1 75 75, F1 90 
150, F2 0 0.1 20, F2 O 2 124, F2 0 3 170, F2 O 4 160, 
F3 1 0.4 110, F3 0 0.3 45, F3 0 0.2 72, F4 11 5 34, F4 
5 35 3 y F4 10 25 1. 
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PROGRAMA 7. Dib.-Geom. 


PROGRAMA 7 


TO Fi :L :A 
DRAM FULLSCREEN HT TY PU SETXY - 50 O PD 61 :L :A 
END 


TO 61 :L :A 
FDGLRT:AFD:LRTERACA 
JF NOT HEADING = O G1 :L :A 

END 


TO FO :A 
DRA FULLSCREEN HT TY PU SETXY - 78 € - 40 > FD 60 :A 
END 


TO GB :A 

FD :ART :A 

IF NOT HEADING = O 60 :A 
END 


TO 62 ¿L :I :A 
FD :LRT:AG2 Le cl IA 
END 


TO F2 ¿L :I5A 

.ASPECT 0.768 DRAM PU HT SETXW 159 129 PD SETX - 159 SETW - 129 SETX 159 SETY 1 
29 PU HOME PD NOWRAF G2 :L il :A 
END 


TO 63 ¿L :I :A 
PU FDOLRATGAPDFD 1 B10630:L+:c100100A 
END 


TO F3 :L :I cA 
DRA TY 63 ¿LI cA 
END 


TO 64 :L :I cA 
FDGLRTOAG4 Lc AR cl 
END 


TO TY 
.ASPECT 0.768 PU HT SETXY 159 129 PD SETX - 159 SETY - 129 SETX 159 SETY 129 PU 
HOME PI 

END 
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Figura 14 
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PROGRAMA 8. Hilos 


Imita algunos cuadros realizados con hilos cruzados 
de diferentes colores (véase la foto 2 en color). Te- 
clear MAKE "STARTUP [INICIO] y SAVE "HILOS para que pos 
teriormente el programa se ejecute automáticamente con 
READ "HILOS. 


PROGRAMA 8 


TO POS :A 

SETXY € SIN :A > * SORT (1 Y/CCSIN:RA)Xk (SIN :AR) / 25000 + ( COS :A )M 
( COS :A > / 16009 > >) ( COS :A > k SORT (1 YC CSIN GA) C SIN :AR > / 25000 
+ (008 :A)*X< COS :A)/ 16000 > > PD 

END 


TO INICIO 
DOUBLECOLOR FULLSCREEN BG 1 HT HILOS 17 4 
END 


TO HILOS :A :B 

IF :A= :B STOP 

MAKE "X 37 IF REMAINDER 36 :A = Q MAKE "xXx 1 + 36 / :A 
PC 1 + ITEM 4 DRAWSTATE PU MAKE "Ri 0 

REPEAT :X [POS 10% :Al MAKE "Al :A1+:AJ 

HILOS :A - 1 :B 
END 


PROGRAMA 9. Olfato 


Es un programa de inteligencia elemental  Imita la 
tortuga a un animál que ''huele'! un alimento, represen- 
tado por un punto, con intensidad muy sensible pero 
sin direccionalidad. Cuando el olor se atenúa, retroce 
de un paso y gira a la derecha un ángulo de corrección 
elegido aleatoriamente, hasta alcanzar el objetivo. Na 
turalmente, el ángulo de corrección óptimo sería 90 
grados. Algunas trayectorias pueden verse en las figur 
ras 23, 24 y 25 con ángulos de corrección de 171, 100 
y 120 grados respectivamente. Teclear MAKE "STARTUP 
[INICIO] y SAVE "OLFATO. 
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Figura 20 


Figura 21 


Figura 22 


A 


Figura 23 


Figura 24 
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Figura 25 
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PROGRAMA 9 


TO INICIO 
.ASPECT 0.9 DOLIBLECOLOR € SPLITSCREEN 1 ) CURSOR A 24 OLFATO 
ENT 


TO HUELE 

MAKE "D SORT ( (GA - XCOR > CO :A- XCOR y) + ( :B- "COR ) ak ( :B- WCOR >) 
IF :D< 2 INICIO 

IF :D > :MBK4RT:0G 

FD 2 MAKE "M :D 

HUELE 
END 


TO OLFATO 

MAKE "G RANDOM 180 PR (J] PRINTI CANGULO DE CORRECCION =] PRINT1 :6 
PU CS MAKE "A € - 100 + RANDOM 209 > 

MAKE "B € - 50 + RANTON 104 > 

SETXY ¿A :BPDEFDA PU 

MAKE "xXx £ - 159 + RANDOM 300 > 

MAKE "Y ( - 89 + RANDOM 160 > 

SET" :% :W PD 

MAKE "Mm 340 HUELE 
ENT 


PROGRAMA 10. Pintura 


Se dibujan cuadros de pintura abstracta al azar. Los 
resultados son muy llamativos (véase la foto 3 en co- 
lor). Es un programa pasivo, como Hilos, y es preferi 
ble pulsar MAKE "STARTUP [INICIO] antes de salvar el 
programa, para que al recuperarlo comience sin esperar 
ninguna orden. 


PROGRAMA 10 


TO ANDAR 

IF (€ ANYOF XCOR < - 135 XCOR > 135 "COR < - 105 YCOR > 105 > SETXw - 135 + RAND 
om 270 ( - 105 + RANDOM 214 > 

PC € RANDOM 15 > + 1 SETH RANDOM 360 FD RANDOM 25 

ANDAR 
END 


TO INICIO 
¿ASPECT 0.768 DOUBLECOLOR DRAW FULLSCREEN BG A 
PC 5 PU SETXW 158 ( - 128 > PD 
REPEAT 2 [FI 256 LT 90 FD 316 LT 20] 
PU SETXW 154 ( - 124 > PD 
REPEAT 2 [FD 248 LT 94 FD 308 LT 98) 
PU HOME PD ANDAR 
END 
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PROGRAMA 11. Disparo 


Es un programa activo en el que el jugador debe acer 
tar un ángulo y distancia de tiro para alcanzar una su 
perficie circular (véase la foto 7). Incluye efectos 
sonoros. Antes de salvar el programa con SAVE ''DISPARO 
debe teclearse MAKE "STARTUP [READ "ARCS READ "MUSIC 
INICIO). Con READ "DISPARO el programa comenzará a fun 
cionar. 


PROGRAMA 11 


TO INICIO 

.ASPECT 0,9 € SPLITSCREEN 1 > CIR 

CURSOR O 24 FUA PRINT1 [ANGULO DE TIRO =] LT FIRST RQ 

PRINT1 (DISTANCIA =] FD FIRST RQ FULLSCREEN 

RES PR [J] PRINT1 [PULSA UNA TECLA PARA REPETIR] CLEARINPUT PR RC INICIO 
END 


TO RES 

SPLITSCREEN TEXTBG 4 

TEST € XCOR - :R- :%X 0 Mk COXCOR — GR= :X 02 + (WCOR -= :W 3 k Co VCOR - : 9) > 
RR 

IFF PRINT1 (MUY BIEN!J SING (612345678910 11 12 13 14] 

IFT PRINT1 CAPUNTA MEJOR!] SING [14 12 1086424] 


END 
TO FUA 
PLAY [0457045704 574042420477554574020] [53923 
559325599119101359229135195559999 12 13] 
END 
TO CIR 


CS MAKE "X ( - 109 + RANDOM 219 > 

MAKE "Y ( - 88 + RANDOM 150 > 

MAKE "R ( 20 + RANDOM 13 > 

PLI SETH A SETXY :x :W PD 

CIRCLER :R 

PU SETH A SETXY - 150 ( - 109 ) RT 94 PD 
END 


TO PUM 

.ASPECT 0,9 £ SPLITSCREEN 1 ) CIR 

CURSOR QM 24 FUA PRINT1 [ANGULO DE TIRO =] LT FIRST RO 
PRINT1 [DISTANCIA =] FD FIRST RQ FULLSCREEN 

RES PR [1 PRINT1 CPULSA UNA TECLA PARA REPETIRI TT 
END 
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Juegos 


PROGRAMA 12. Nave 


Se trata de llegar a un punto representado en panta- 


dor. Las trayectorias son dibujadas y se contabilizan 
los puntos a favor y en contra. Este programa y el si- 
guiente utilizan un Joystick conectado al Port 2. Para 
guardar el programa: MAKE "STARTUP [INICIO] y SAVE "NA 
VE. 


PROGRAMA 12 


TO INICIO 
DRAW HT FULLSCREEN FD 1 BK 2 FD 1 RT 90 FD 1 BK 2 Pu 
PC 7? MAKE "A € - 140 + RANDOM 280 ) MAKE "B € - 90 + RANDOM 180 ) SETXY :A :BP 

D FD 1 PU 
MAKE "X £ - 140 + RANDOM 289 ) MAKE "Y € - 9M + RANDOM 189 > NAVE 

END 

TO PRINCIPIO 
DOUBLECOLOR MAKE "N A MAKE "DA 
CURSOR A 24 INICIO 

END 

TO ESPERA 
CURSOR 10 24 PRINT1 € SE :N CCONTRAJ :D > 
IF JOWBUTTON 1 CURSOR O 24 INICIO ELSE ESPERA 

END 

TO BIEN 
( SPLITSCREEN 1 ) MAKE "N :N + 41 
PRINT1 [GANASTE. ] ESPERA 

END 

TO MAL 
€ SPLITSCREEN 1 ) MAKE "D :D + 1 
PRIHT1 CPERDISTE.] ESPERA 

END 

TO DEFENSOR 
PC 7? SETXY :A GB PD 
SETH TOWARDS :% :Y FD 6 + RANDOM 4 
MAKE "A XCOR MAKE "R YCOR 
IF € ALLOF RC CAR 2 ORO CA 2 LOBO BA 2 MAL 
PL NAVE 

END 

TO NAVE 
PC 14 SETXY 3% cv PD 
SETH 45 * JOYSTICK 1 FD 7 + RANDOM 2 
MAKE "NX XCOR MAKE "Y COR 
IF OC ALLOF XX 2 0H 0-2 094<2 00-20) BIEN 
PU DEFENSOR ! 

END 
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PROGRAMA 13. Conducir 


El jugador debe eludir el contacto de su tortuga por 
parte de 7 perseguidores, que se van acercando mien- 
tras dibujan las trayectorias en colores distintos, du 
rante el mayor tiempo posible. No es posible tampoco 
escapar del marco de la pantalla ni cruzarse con los 
rastros de los contrarios. Se registra el record de 
tiempo. Antes de salvar el programa debe pulsarse MAKE 
"STARTUP [READ "SPRITES INICIO). 


PROGRAMA 13 


TO DUENDE :N 

PU MAKE WORD "%x :N RANDOM 300 MAKE WORD "Y :N RANDOM 204 
IF :N = 7 STOP ELSE DUENDE :N +1 
END 


TO JUEGO 
ST FC 1 PLUSETRY cx cv 
IF JOYSTICK 1 > - 1 SETH 45 * JOWSTICK 1 FD 2 + RANDOM 8 
IF € ANWOF TB? XCOR > 155 XCOR < - 155 COR > 122 YCOR < - 122 > CHOQUE 
MAKE "% XCOR MAKE "%w "COR 
MAKE "N :N + 1 HT 
AZAR 1 + RANDOM 7 JUEGO 
ENT 


TO IMICIO 

POUBLECOLOR FULLSCREEM FU PC 15 

SETW'Y 157 122 PD SETA - 157 SETY - 122 S5ETX 157 SETY 122 PU 
PC 1 DUENDE 1 HOME 

MAKE "Xx 0 MAKE "%Y A MAKE "N A JUEGO 
ENT 


IF =10P5 
IF :N = 2 0P 3 
IF ON =30P 7? 
IF :N=40P8 
IF :N = 5 0P 10 
IF :N=60P 13 
IF ¿NH = 7? 0P 14 

END 

TO AZAR :N 


SETXY THING WORD "% :N THING WORD "Y :N 

PC COLOR :N PD SETH € TOWARDS :X :Y - 24 + RANDOM 48 > FD 15 PU 
MAKE HORD "% :N XCOR MAKE LORD "Y :M "COR 

IF 1 = RANDOM 3 AZAR :N 
END 
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TO REPE 
IF JOYBUTTON 1 INICIO ELSE REPE 
END 


TO CHOQUE 

CLEARTEXT SPLITSCREEN FR SE CIURACION] 3H 

IF ¿RECORD £ :N MAKE "RECORD :N 

PR SE [RECORDI ¿RECORD 

PR CPULSA EL BOTON DEL JOYSTICK PARA REPETIR] REFE 
END 


PROGRAMA 14. Nim. 


Se trata de un juego interactivo entre el usuario y 
el ordenador. Se comienza con un número de cerillas da 
do y se pueden retirar en cada turno hasta un número 
máximo. Ambos datos se'*piden inicialmente al jugador. 
Gana quien retire la última cerilla. Se utilizan fre- 
cuentes cambios de color de los caracteres y de la pan 
talla. 


Un ejemplo de diálogo sería: 


DIME TU NOMBRE 
PEPITO 
CON CUANTAS CERILLAS EMPEZAMOS? 


33 
NUMERO MAXIMO DE CERILLAS QUE SE PUEDEN RETIRAR CADA VEZ? 


7 

EMPIEZA A RETIRAR LA TORTUGA?(SI O NO) 

NO 

EL NUMERO DE CERILLAS ES 33 

TU JUEGAS.RETIRA DESDE 1 HASTA 7 CERILLAS. 


ONE 
NO ENTIENDO. DIME UN NUMERO. 


1 

EL NUMERO DE CERILLAS ES 32 

LA TORTUGA QUITA 6 

EL NUMERO DE CERILLAS ES 26 

TU JUEGAS.RETIRA DESDE 1 HASTA 7 CERILLAS. 


2 

EL NUMERO DE CERILLAS ES 24 

LA TORTUGA QUITA 3 

EL NUMERO DE CERILLAS ES 21 

TU JUEGAS.RETIRA DESDE 1 HASTA 7 CERILLAS. 


5 

EL NUMERO DE CERILLAS ES 16 

LA TORTUGA QUITA 2 

EL NUMERO DE CERILLAS ES 14 

TU JUEGAS.RETIRA DESDE 1 HASTA 7 CERILLAS. 
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6 

EL NUMERO DE CERILLAS ES 8 

LA TORTUGA QUITA 5 

EL NUMERO DE CERILLAS ES 3 

TU JUEGAS.RETIRA DESDE 1 HASTA 7 CERILLAS. 


7 
HALA! NO HAY TANTAS CERILLAS 


3 

PEPITO HA GANADO! 

LA TORTUGA HA GANADO Q VECES. 
PEPITO HA GANADO 1 VECES. 
JUGAMOS OTRA PARTIDA? SI? 

NO 


Deben teclearse los procedimientos adjuntos y pulsar 
MAKE "STARTUP [INICIO) antes de guardar el programa. 
Al recuperarlo se ej0cutará automáticamente. 


PROGRAMA 14 


TO ESTRATEGIA 
MAKE "RESTO REMAINDER :CER :Y +1 
IF ¿RESTO = O MAKE "RESTO 1 + RANDOM :Y 
PR SE [LA TORTUGA QUITAJ ¿RESTO 


OP :RESTO 
ENT 
TO MO, HLIM 


MAKE "MO FIRST RQ 

IF NOT NUMBER? :MOW PR CNO ENTIENDO, DIME UN NUMERO. J MO', HIM 

TEST ALLOF :MOW > 0 :MOW < 7 + 1 TIFF PR SE [DIME UN NUMERO ENTRE 1 7] Y MOw,H 
yl 

IF ¿MOW > ¿CER PR CHALA! NO HAY TANTAS CERILLASI M0%, HLIM 
ENT 


TO INICIO 

TEXTSCREEN CLEARTE%T 

MAKE "TQ MAKE "HQ 

PR [DIME TU NOMBRE] MAKE "N RA 

PR [CON CUANTAS CERILLAS EMPEZAMOS?] MAKE "CER FIRST RO 

PR CNUMERO MAXIMO DE CERILLAS QUE SE PUEDEN RETIRAR CADA YE2?] MAKE "w FIRST RO 
PR [EMPIEZA A RETIRAR LA TORTIIGA?(SI O NO)] MAKE "RESP RE 

IF ¿RESP = [SI] MAKE "JUG CLA TORTUGAJ MAKE "0PO :N ELSE MAKE "OPO CLA TORTUGAI 
MAKE "JUG :N 

NIM ¿CER :JUG :0PO 
END 


TO MOVER :JUG 

IF :JUG = CLA TORTUGAJ MAKE "MO ESTRATEGIA ELSE PR £ SE [TU JUEGAS.RETIRA DESD 
E 1 HASTAJ :Y CCERILLAS.J > MOW, HUM 

OP mov 
END 
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TO REPE 
REPERT 99 CTEXTBG RANDOM 16] 
TEXTCOLOR € TEXTBG 1 
IF :JUG = [LA TORTUGA] MAKE "T :T + 1 ELSE MAKE "HN :H +4 
PR [J PR € SE [LA TORTUGA HA GANADO] :T [WECES.J > 
PR € SE :N CHA GANADO] :H [WECES.J > PR [1] 
PR [JUGAMOS OTRA PARTIDA? S1?] 
IF RG = [SI] COMIENZO ELSE MAKE "A [J] REPEAT 18 [PR (SE :A :N C,ADIOS...] MAKE 
"A FPUT " :AJ 
END 


TO COMIENZO 

PR [CON CUANTAS CERILLAS EMPEZAMOS?] MAKE "CER FIRST RQ 
NIM :CER :OPO :JUG 

END 


TO NIM :CER :JUG :OPO 

IF :JUG = (LA TORTUGA] TEXTCOLOR 5 TEXTBG 7 ELSE TEXTCOLOR 14 TEXTEG 3 

FR SE [EL HUMERO DE CERILLAS ES] :CER 

MAKE "NCER :CER - € MOWER :JUG > 

IF ¿HCER = 0 PR [1] PR SE :JUG CHA GANADO!J PR (1 REPE STOP ELSE NIM :WHCER :OPO 
¿JUG 

END 


PROGRAMA 15. Cerco 


Este programa muestra a un caballo encerrado en un 
cercado: (véase la foto 4 en color). Al tocar la valla 
o un cactus, el caballo'es repelido y continúa su movi 
miento aleatorio. Después de teclear los procedimien- 
tos siguientes se guardan con SAVE "CERCO. Para ejecu- 
tar el programa, tras READ "CERCO, es preciso recoger 
la forma del caballo insertando el Utilities Disk en 
la unidad de disco y ordenando READ '"SPRITES READSHAPES 
"ANIMALS INICIO. 


PROGRAMA 15 


TO CUADRO1 
REPEAT 2 [FD 20 RT 90 FD 12 RT 90] SETX XCOR + 12 
END 


TO CIUADRO2 
REPERT 2 (FD 20 RT 20 FD 30 RT 160] RT 20 FD 30 LT 29 
END 


TO RAMAS 


BK 5 LT 45 FD 8 BK 8 RT 99 FD 8 BK8LT45 
END 
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' 
TURBO ox 20 RT í RANDOM 180 > + 98 
FD 6 ANDAR 

END 


TO TITULO :TEX 

STAMPCHAR FIRST :TEX PU SETX XCOR + 8 PD 
MAKE "TEX BF :TEX 

IF ¿TEX = (1 STOP 

TITULO ¿TEX 
END 


TO CACTUS 


PC 5 SETH O SETXW ( RANDOM 189 ) - 99 ( RANDOM 119 > - 55 PD FD 15 RAMAS RAMAS 


PU 
END 


TO VALLAZ 
REPERT 6 [CUADRO2] 
END 


TO VALLAÍ 
REPERAT 29 [CUADRO1] 
END 


TO INICIO 

.ASPECT 0.9 SINGLECOLOR FULLSCREEN BG 1 

HT PU SETXY - 150 ( - 80 > PDPC O 

VALLA1 VALLA2 PU SETXW - 150 ( - 80 > PD VALLA2 VALLA! PU 

REPERT 10 [CACTUS] 

SETN'Y - 150 € - 98 > PD PC 6 TITULO [CABALLO.EN.CERCADO,.C 
N.CACTUS.IJPU 

HOME TELL 5 ST PC 10 RT 90 

ANDAR 

END 


0 


PROGRAMA 16. Dados 


Permite jugar al póquer con dados entre dos jugado- 
res. Utiliza duendes cuyas formas deben ser definidas 
previamente. Para ello, limpiar el "espacio de trabajo" 
con GOODBYE y teclear READ ''SPRED, manteniendo el dis- 
kette del lector en la unidad de disco (es preciso Ha- 
ber copiado este programa anteriormente, como indica 
la nota del capítulo 6). Pulsar TELL 1 y EDSH con lo 
que aparecerá el editor de duendes. Con las teclas +, 

- y las de cursor representar la forma 1 siguiente: 
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e OOOO 


Drs Dl o oo 


Después pulsar STOP y TELL 2 EDSH para la configura- 
ción siguiente: 


enc DODOOOOANONOODO. +. 


E [ala] o 
«DO. DO +... n. 
«De . «Der. 
MANDODOAAAANAOOOO.. 0.0. 
Doononoonooo.». 0,0 De 
Oran... . DO... 
O. -DOOss «<< .. n OD. 
O, 000. oo --D0.0.M.D. 
a A Nn,0..-D. 
Dorso no nooo”... 0.0.0. 
Dionconarne as Mm... 


Después pulsar STOP y TELL 3 EDSH para la configura- 
ción siguiente: 
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El talaja lalalala 


Después pulsar STOP y TELL 4 EDSH para la configura- 
ción siguiente: 


.«.»:20009990090090000. 
no Doono.n.. «2... .. 

.«<.«Q2. 
O... 
o. 


ns «Dn. . <<... 


¿D:...:.00. 


. 


A 


200000000900 


. 
, 
z 
a 
SE O AAA ANA E 
. 
* 
* 
» 
. 
- 
» 
z 
* 
» 
» 
> 


o 
o 


.: 00097. - 009 
2n00..-.-009 
0009 


.. se 


DO" . . ..... 


ss. <0. .o... .. O. 


000000000: . - 


900 
900 
909...0090 


E E 


O.» 


. . +. o» 
AT RA PA E A A 


z e 2.0202 


20000000090000 > 


a O a a 


Lon o” o” +. . . 2. . . . . . . . . o. «. . 8 


.o. .. ». +. 1. . . 0. o... . 2. . . . o. on os 


.. 0 
Q..» 


0 


.oo o» o». 


Después pulsar STOP y TELL 5 EDSH para la configura- 
ción siguiente: 
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M.... .2000009000900909009. 
.... DD -00 +: «<<... ....00). 
e... « «Oo... ....<.... 09.2 


O o AS A 


nO. » 
Ps ......ko...0 
¿Dro oo. ... 00.00. 
0002000002 59900009. 


Dor. 


09.003. 


EA e 
:«-: 009.9. 
0.009. :- 000.0. 
0.203 2: :- 0009.09. 
Das 22.2... «QQ. 
a. z : 000... .. «0. 
000... Oe 
00.....0.2+2 
» =...0. 

> 009.0. 

pa 002.0. 

2 2000.09. 
e: «...« 90 
2302000090000000. 


ÓDro mo +. +. . +... . 0. 1 . 


ANA 


DNS 
.—. 
.... 0... ... 00... . 


-.o. +. +. . +. . +. o. 4. . . . o. o. . . o. 1 
.eoueoos  . . . . +. ono. +. «ss. . o . o o os 


2. ...:.000000 


AA A TA TR AS 


- 
. 
. 
. 
* 
. 
” 
. 
. 
* 
. 
* 
* 
. 
. 
. 


... .» +. 


Después pulsar STOP y TELL 6 EDSH para la configura- 
ción siguiente: 


«¿2000020002 0090009. 
O ....hRo......0%. 
. 00... 0.09. 
pc o. 
co.» . o. 
o A o. 

o. 

0 


2000 . 
- 200 . 
909.0. 
: 009.0. 


--009.9.0 
Co dia O: 
9009900000.. 


.?|eoun +. « . . 2». +. . . 2. . . +. 2. . . . . o. e 


Después pulsar STOP y TELL 7 EDSH para la configura- 
ción siguiente: 


Didrcrorocrn rr Oe 
Or Oro rn... 
Oro... (a A 
Doro... DacoDonno.-». 
Dernarno ro la] 
Deer.» La] 
Deonrrr.. n 
O Dies 
«Dro roo o. La] 
e nooDennos la] 
se...» 0...0 
on...» A PRO 
la] 


Una vez se han definido las formas de los duendes 
1-7 se salvan con SAVESHAPES ''DADOS. 


Se limpia el espacio de trabajo con GOODBYE y se te- 
clean los siguientes procedimientos. 


PROGRAMA 16 


TO INICIO 

BORRAR 1 

MAKE "P € - Po IF GP= 1 HOME PD PR [IPR SE CTIRADA:] :T PRINT1 £ SE ¿Di :D2 
¿D3 :D4 :D5 > MAKE "Ti :T ELSE PR (] PR (PRIMER JUGADOR] MAKE "T1 (- 10) 

MAKE "T 1 PU SETx - 150 

MAKE "L [1 234 5] TELL 0 HT DADO 1 
END 


TO BORRAR :N 
IF :N = 6 STOP 


TELL :N HT 
BORRAR :N + 1 
END 


TO JUEGO 
¿OPTION "TEXTSCREEN O 1 ELIGE 
END 


TO REFES :M 
IF ¿HN = 5 JUEGO ELSE REPE :N + 1 
END 


TO REPE :N 


IF MEMBER? :H :L TADO :N ELSE REPES :H 
ENT 
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= 20-14 

IF :D=10P2 
OF :D 

END 

TO COLOR :N 
IF :N= 1 0P 1 
IF :N=20P 7? 
IF :H= 3 0P 10 
IF :N =40P 14 
IF :N = 5 0P 13 

ENT 


TO ESPERA :N 
REPEAT 10 % :N [] 
END 


TO DADO :N Fotografía 9 

LOCAL "D 

TELL :N BIOX BIGY ST SETH 90 SETXY - 150 ( :N % 52 - 137 ) PC COLOR :N 

REPERT 2% (8 - 3H) CFD 12 SETSHAPE 7 ESPERA 1 MAKE "D 1+RANDOM E SETSHAPE D 
:D ESPERA 1] 

MAKE LORD "D :N :D 

IF :N = 5 JUEGO ELSE REPE :N + 1 
END 


TO QUITA :H :A 

MAKE "L [] 

REPEAT COUNT :A CIF FIRST :A = :N MAKE "A EF A ELSE MAKE "L LPUT FIRST :R LM 
AKE "A EF :A] 

END 


TO CAMBIA 
PR (1 PRINTI (CAMBIO DE JUGADOR. PLULSA —RETUEN-J] PR OREA INICIO 
ENT 


TO ELIGE 

TF ANTOR ¿To = :T1 EMPTW? :L CAMBIO 

LOCAL "A MAKE "A RE 

IF MEMBER? :A :L TELL :A SETA 124 QUITA :A :L 

IF :A= "R CLEARINPUT MAKE "T :T +41 DADO FIRST :L ELSE ELIGE 
END 


TO DADOS 

RAMDOMIZE TEXTEG 11 TEXTCOLOR 8 READSHAPES "DADOS MAKE "P 1 
REPEAT 6 CPR 17] í SPLITSCREEN 2 > INICIO 
ENT 


Para que comience a ejecutarse tras ser leído se pul 
sa MAKE "STARTUP [READ '"SPRITES DADOS] y se guarda en 
disco con SAVE "DADOS. El juego muestra una tirada con 
5 dados que el jugador 1 va seleccionando. Si pulsa 1, 
2, 3, 405 se retira el dado correspondiente empezando 
desde la parte inferior. Para repetir con los dados 
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restantes se teclea R. Cuando se han retirado los 5 da 
dos conpóquer, trío, pareja..., se anota el número de 
tiradas efectuadas y el valor obtenido y comienza el 
turno del segundo jugador. En la foto 8 se puede ver 
que el primer jugador obtuvo póquer de doses en 3 tira 
das y el segundo jugador ha logrado 2 seises, 2 unos y 
1 tres en la primera jugada. Retira los 2 seises pul- 
sando 3 y 4 por la posición que ocupan en pantalla y 
teclea R para repetir la tirada con los otros 3 dados. 
La foto 9 muestra que el segundo jugador obtiene repó 
quer de seises en 2 jugadas, ganando esta partida. 


PROGRAMA 17. Ajedrez 


Este programa (dividido en 2 partes para ahorrar 
tiempo cuando se ejecuta) permite jugar con otro opo- 
nente humano con el televisor de tablero y fichas o 
ver partidas famosas representadas en pantalla. 


El programa Tablero dibuja en pantalla la posición 
inicial de una partida (figura 26 y foto 1 en color). 
Deben teclearse los procedimientos siguientes y pul- 
sar READ '"ARCS y TABLERO. 


Cuando finaliza el programa y aparece en pantalla el 
tablero, se guarda esta figura con SAVEPICT '"'TABLERO. 
A partir de ese momento no son necesarios estos proce- 
dimientos y puede limpiarse el espacio de trabajo con 
GOODBYE antes de pasar al programa Ajedrez. 
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PROGRAMA 17 A 


PROGRAMA 17A 


TO BORRA1 :Q 

PU SETX - 13 + X FIRST :Q MAKE "G BF :Q 
SETY Y FIRST :Q PD SETH O NEGRO 
ENT 


DD 
A] 
Dn 


o 
DODDOAD 


'no(”09QQ(uQna'. 
D 


TOC 
SETH 9 PL FD 2 PD RT 99 BK 6 FD 14 LT 90 
ARCL 61 15 LT 110 ARCL 85 7 
SETH 80 FD 11 SETH 30 BK 11 
END 
TO T 
SETH Q PU FD 2 PDRT 90 FD? BK 14 LT 90 FD 18 
RT 90 FDSRT90FDS5LT90FD4LT90FDSRTO9aAFDSRTO9aFD 18 
END 
TOR 
SETH 0 PU FD 3 RT 98 PD CIRCLEL 6 Pl SETY YCOR + 12 PD LT 20 FD 8 BK 4 RT OSO FD 
4 BK 8 
END 
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TO DIBUJA :£ 

PU SETX X FIRST :Q MAKE "0 BF :Q 
SETWY Y FIRST :Q MAKE "A BF :Q 

PD PC .OFIRST :( MAKE "Q BF :N 

F FIRST :Q MAKE "0 BF :Q 

IF: = " STOP ELSE DIBUJA :0 


END 
TOP 

SETH 0 PU FDS PDFD15 Ak 15 RT 90 FD5Bk la 
END 

TO LETRERO 

PC 5 HT SETH O 

PU SETxY - 96 103 FI LA 

PU SETRY - 96 £ - 129 3 PD LA 
PU SETxY - 71 103 PD LB 

PU SETXY - 71 £ - 129 >) PD LB 
PU SETXY - 435 103 PD LC 

PI SETNY - 45 € - 129 > PDLE 
PU SETxY - 24 103 PD LD 

PL SETXW - 24 £ - 129 > PD LO 
PU SETXY 5 103 PD LE 

PU SETXY 5% - 129 3 PDLE 

PU SETXY 30 103 PD LF 

PI SETXY 30 ( - 129 > PD LF 
PU SETXY 53 103 PD LG 


PU SETXY 53 ( - 129 > PD LG 
PL SETXY 79 103 PD LH 

PU SETXY 79 ( - 129 > PD LH 
LETRERO1 

END 


TO NEGRO 
REPERT 12 [FD 24 SETXY XCOR+2 WCOR-24] FD 24 SETXY XCOR + 1 "COR - 24 
END 


TO BF2 :A 

REPERT 2 [MAKE "A BF :AJ 
0P :A 

END 


TO A 

SETH 0 PU FD 2 PD RT 99 FD 7 PK 14 LT 90 
ARCR 32 35 RT 106 ARCR 32 35 

END 


TO PIEZAS 

MAKE "P "RIBTBIBCCIBAD1BDE1BRF1BAG1BCH1RBTASBPE2BPCEPPDOBPE2BPF2EPO2BPH2BPA?NPB7 
NPC?NPD?NPE?NPF7NPG7NPH?NPASNTBSNCCONADSNDESNRFSHMAGSHCHSNT 

DIBUJA :P 

LETRERO 

END 


TO FILA2 
REPEAT 4 [SETX XCOR+25 NEGROJ 
END 


TO ARRIBA 
PL SETXY XCOR - 208 YCOR + 25 PD 
END 
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TO FILA 
REFEAT 4 [NEGRO SETX %COR+25] 
END 


TO ESCAQUES 

SETX'Y - 109 ( - 104 > PD 

REPEAT 4 [FILA ARRIBA FILA2 ARRIBA] 
PIEZAS 

END 


TO LH 

FD 25 RT 99 PU FD 12 PD RT 90 FD 12 RT 90 Fl 12 BK 12 LT 90 FD 13 LT 90 
PU FD 8 LT 99 PD 

END 


TO L6 

FD 25 RT 99 FD 12 BK 12 LT 90 BK 25 RT 94 FDO 12 
LT 94 FD 13 LT 9%MFD6 

PU SETXY XCOR + 14 YCOR - 13 SETH O PD 
END 


TO LF 

FD 25 RT 90 FD 12 Bk 12 LT 98 BK 12 RT 94 FD 12 Pl SETXY XCOR + 8 "COR - 13 
PD LT 90 

END 


TO LE 

.FD 25 RT 90 FI 12 BKk 12 LT 90 BK 12 RT 90 FD 12 BK 12 RT 90 FD 13 LT 90 FD 12 P 
li FD e PDLT 98 

END 


TO LD 

FD 25 RT 90 FD 7 SETXY XCOR + 5 YCOR - 5 RT 90 FD 15 SETXY COR - 5 WCOR - 5 SE 
TH 0 SETX XCOR - 7? 

PI) SETX XCOR + 20 PD 
END 


TO LC 

FD 25 RT 90 FD 12 BK 12 LT 98 Ek 25 RT 94 FD 12 
PU FD 8 PD LT 9 

END e 


TO LB 
FD 25 RT 90 FI 7 SETXW XCOR + 5 YCOR - 5 SET YCOR - 2 SETXY XCOR - 5 YCOR - 5 
SETX XCOR - 7 SETX XCOR + 7 SETXY XCOR + 5 "COR - 5 SETY YCOR - 3 SET «COR - 5 
WCOR - 5 SETH A SETX XCOR - ? 
PU SETX XCOR + 24 PD 
ENT 


TO LA 
FD 25 RT 90 FD 12 RT 90 FD 12 RT 99 FD 12 BK 12 LT 90 FD 13 LT 90 PU FDOS LT 90 


TO D 

SETH 9 PU FD 4 PDFD 15 Bk 15 RT 90FD6 
LT 70 FD 15 BK 15 LT 110 FO 11 

RT 79 FD 15 

END 
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TO N8 

FD 20 RT 99 FD 12 RT 90 FD 10 RT 90 FD 12 BK 12 LT 90 FD 10 LT 98 EK 12 PU FD 2 
9 LT 90 PD 

END 


TO HN? 

PU FD 29 PO RT 90 FD 12 RT 90 Fl 14 RT 94 FD6 Bk6LT 9% FD 10 LT 90 PUFDSL 
T 90 PD 

END 


TO N6 

FD 20 RT 90 FD 12 PU SETXY XCOR - 12 COR - 10 PI FD 12 RT 90 FD 10 RT 90 FD 10 
PU BK 28 RT 90 PD 

END 


TO N5 

PU FD 10 PD FD 10 RT 90 FD 12 Pl SETXY NCOR - 12 “COR - 10 PD FI 12 RT 90 FD 10 
RT 99 FD 10 PU BK 20 RT 90 PD 

END 


TO N4 
PU FD 10 PD FD 10 Bk 10 RT 90 FD 12 LT 90 FD 19 EK 29 PU SETxX xEOR + 8 PD 
END 


TO N3 

PU FD 29 RT 90 PD FD 12 RT 99 FD 106 RT 94 Fl 12 PK 12 LT 90 FD 14 RT 90 FD12P 
LU BK 28 RT 98 PD 

END 


TO N2 

FD 10 RT 90 FD 12 LT 90 FD 10 LT 90 FD 12 PU SETY YCOR - 24 FDO BE 10 PU BK OS RT 
20 PD 
END 


TO Ni 
PU FD 10 SETH 45 PD FD 14 LT 45 BK 20 


END 

TO Y ¿KR 
1F :X = "1 0P - 190 
1F :X= "2 0P - 75 
IF :X = "3 0P - 50 
IF :X= "4 0P - 25 
IF :X="50P0 
IF :X = "6 0P 25 
IF :X = "7 0P 50 
(F X= "8 0P 7 

END 

TO X :X 
IF ¿X= "A 0P - 87 
IF 3% = "B 0P - 62 
IF ¿X= "C OP - 37 
IF :X = "D OP - 12 
IF ¿X= "E 0P 13 
IF :X = "F 0P 38 
IF :X = "G 0P 63 
IF :X = "H 0P 88 

END 
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TO LETRERO1 
PC 8 LOCAL "*X MAKE "xXx ( - 120 ) 
LOCAL "Y MAKE "Y 108 


PI SETXY :x ( - 100 > FD Ni 
PL SETXY :Y € - 100 > PD Ni 
PU SETXY :% £ - 75 > PD M2 
PU SETXY ¿Y ( - 75 3 PD N2 
PU SETXY :% ( - 350 > PD N3 
PU SETXY :Y € - 50 > PD N3 
PL SETXY :X% € - 25 ) PD N4 
PU SETXY :Y (- 253 PDN4 
PU SETXY :% 0 PDNS 

PU SETXY :Y A PDNS 

PU SETXY :X 25 PD N6 

PU SETXY :Y 25 PD N6 

PL SETXY :X 50 PD NH? 

PU SETX" :Y 50 PD N? 

PU SETXY :X 75 PD H8 

PU SETXY :Y 73 PD N8 

END 
TO TABLERO 


DOUBLECOLOR FULLSCREEN BG 3 HT PC 12 

PILI SETXY - 100 100 RT 90 

REPEAT 9 [PD FD 200 PL SETxY -104 YCOR-257 
SETWY - 100 100 SETH Q 

REPEAT 9 [PD Ek 200 PU SET XCOR+25 1007 
ESCAQUES: 


PROGRAMA 17 B 


El programa Tablero sólo se ejecuta la primera vez y 
da como resultado una figura que será utilizada median 
te el programa Ajedrez. Los procedimientos de Ajedrez 
se enuncian a continuación y debe pulsarse READ '""ARCS 
e INICIO antes de guardarlo con SAVE "AJEDREZ. 


Posteriormente, en cualquier momento, bastará orde- 
nar directamente READ "AJEDREZ para que se "lea" la fi 
gura de Tablero y comience el programa con la elección 
de jugar o visionar partidas de ajedrez (véase la figu 
ra 27 con la posición final de una partida). 
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Figura 2 


PROGRAMA 17B 


TO PARTIDAS 

MAKE "1 FIRST :PAR PRINT1 WORD :1 ", IF :] = "REPE INICIO 
IF € COUNT :1 ) = 4 REPEAT 1 (] ELSE JUGAR 

MAKE "E WORD LAST BL :I LAST :1 

MAKE "1 WORD FIRST :I FIRST BF :I 

JF MEMBER? :E :L MAKE "A (] MAKE "E [J] SUPRIME :E 
IF MEMBER? :1 :L MAKE "A (] MAKE "B [7] SUPRIME :1 
WORD :E :C MAKE "L FPUT :E :L MAKE "P FRUTO :C:P 
MAKE "PAR BF :PAR PARTIDAS 
END 


¿P BORRA WORD :E :C 
P E0 E 


L 
:Lo:P BORRA WORD :1 :C DIBLJA 


TO INICIO 

ELECCION READPICT "TABLERO HT IF :E= "J £ SPLITSCREEN 1 5 REPEAT 25 [PR (13 JU 
GAR 

IF :E= "P FULLSCREEN JUGADAS PARTIDAS 
END 


TO SUPRIME :E :Q :R 

IF GE x= FIRST :Q MAKE "L SE :A BF :Q MAKE "C FIRST :R MAKE "P SE :B BF :R ELSE 
MAKE "A FFUT FIRST :Q :A MAKE "B FPLITOFIRST :R :B SUPRIME :E BF :Q BF GR 
END 


TO BORRA :Q 
PL SETX X FIRST :Q 
SETY Y FIRST BF :Q 


PD PC -1 

FIGURA FIRST BF BF BR :N 
BO :Q 

END 


TO DIBUJA :Q 

PU SETX X FIRST :Q MAKE "Q BF :Q 
SETW Y FIRST :Q MAKE "Q BF :Q 

PD PC J FIRST :( MAKE "Q BF :Q 
FIGURA FIRST :Q MAKE "0 BF :Q 

IF :Q = " STOP ELSE DIBUJA :Q 
END 
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TO JUGAR 

PRINT1 [(MUEVES?] MAKE "I FIRST RQ IF :1 = "REPE INICIO 

IF ( COUNT :1I > = 4 REPEAT 4 (] ELSE LIGAR 

MAKE "E WORD LAST BL :1 LAST :1 

MAKE "I WORD FIRST :I FIRST BF :1 

IF MEMBER? ¿E :L MAKE "A (] MAKE "B CJ] SUPRIME :E :L :P BORRA LORD :E :C 

IF MEMBER? :] :L MAKE "A [] MAKE "B [J SUPRIME :1 :L :P BORRA WORD :1 :C DIBLJA 
MORD :E :CO MAKE "L FPUT O :E :L MAKE "P FPUT :C :P 

JUGAR 
END 


TO ELECCION 

TEXTSCREEN CLEARTEXT 

MAKE "P [BT BC BA BD BR BA BC BT EP EP EP BP EP BP EP OBP ONP NP HF NP NP NP ONP OH 
PONT HC NA ND NR NA NC ONTI 

MAKE "L [Al B1 Ci D1 El Fí G1 H1 A2 B2 02 D2 E2 F2 62 H2 A? B7 C7 17 E? Fr 67H 
7 AS BS CS 18 ES FS 08 H8] 

PR [QUIERES JUGAR SOBRE EL TABLERO CONTRA ¿OTRO JUGADOR (PULSA JT) ( QUIERES YE 
R ...PARTIDAS FAMOSAS (PULSA P>?] 

CLEARINPUT MAKE "E RC 
END 


TO J :C 
IF :C 
JF OC 

END 


TO JUGADAS 
MAKE "PAR ITEM £ 1 + RANDOM 4 > [[C204 60766 G1F3 F867 D2D4 G8F6 B1C3 ESG8 HeFS 
E2E4 D7D6 F1E2 E?ES ElG1 H1F1 BOCÉE D4D5 C6E? B2R4 F6HS F3D2 H5F4 A2A4 F?FS ESF3 
6665 E4FS E7?FS 6203 FSD4 G3F4 D4F3 DIFO 0504 FOH1 ESF4 C1B2 CSFS F1E1 F4F3 D2E4 
DOSH4 H2H3 67E5 ElE3 04H3 H1F3 F3G4 FSH1 H3H2 6162 H4H5 E4D2 ESD4 H1E1 ASES C3E4 
D4B2 E303 B2E5 A1AS 08H8 E1H1 F8G8 H1E1 E5G3 A363 FRE4 D2E4 G4F3 G2F1 H2H1 REPEJ 
[E2E4 C7C6 B1C3 D7DS G1F3 DSE4 C3E4 B8D? DIEZ G9F6 E4Dó REPEJ [E2E4 E7ES G1F3 B 
806 B1C3 G8F6 F1BS C6D4 F1C4 F8C3 FSES DSE? ESD3 D7DS C3DS E7E4 DIES C8Dó ElG1 H 
1F1 B7B5 C4B3 C8B? D3E1 E4H4 6263 H4H3 C203 H7H5 C3D4 H5H4 D1E2 H3H2 G1H2 H4G3 H 
261 HSH1 REPEJ [E2E4 E7ES G1F3 BSC6 F1C4 FSC3 R2B4 C5B4 1203 B4A5 D2D4 ESI4 E1G1 
H1F1 D4D3 T1B3 DOFE E4ES F6G66 F1E1 G8E? C1A3 B7B5 B3B5 ABBO BSA4 BSBG6 B1D2 CSB? 
D2E4 G6FS C4D3 FSH5 E4F6 67F6 ESF6 H8G8 AID H5F3 E1E7? C6E7 A4D? ESD? D3FS D7ES 
FSD? ESFS A3E? REFEJ] 
END 


TO NEGRO 
REPEAT 12 [FD 24 SETXW XCOR+2 YCOR-241 FD 24 SETXY XCOR + 1 YCOR - 24 
END 


"BOP 1 
"N OP Q 


un 


TO BO :Q 

MAKE "Q WORD FIRST :Q FIRST BF :Q 

IF MEMBER? :Q [A1 AB AS A? C1 0305 07 El ES ES E? G1 63 65 07 B2 B4 B6 B8 D2 D 
4 D6 D8 F2 F4 F6 FS H2 H4 H6 H8] PC 12 PU SETXY - 13 + % FIRST :Q Y FIRST BF :0 
SETH Q PD NEGRO 


END 

TOX:% 
IF :x = "A OP - 87 
IF :X = "BOP - 62 
IF :X% = "COP - 37 
JF :% = "DOP - 12 
JF :X = "E OP 13 
IF :X = "F OP 38 


SETH A PL FD 3 RT 90 PD CIRCLEL 6 Pl SETY WCOR + 12 PD LT 90 FD 8 PX 4 RTS FD 


IF :X = "G OP 63 
JF :X = "H OP 88 
END 

TOY :X 
IF :X= "1 0P - 100 
IF :x = "2 0P - 75 
IF :x = "3 0P - 50 
IF :X = "4 0P - 25 
IF :X= "5 0P Q, 
IF :X= "6 0P 25 
IF :X = "? 0P 54 
IF :X = "8 0P 75 

END 

TOR 

4 BK 8 

END 

TOD 


SETH OM PU FD 4 PDFD13 BK 15 RT94FD6 
LT 70 FD 15 BK 15 LT 110 FO 11 

RT 70 FD 15 

END 


SETH A PL FD 2 PD RT 90 BK 6 FI 14 LT 90 
ARCL 61 15 LT 110 ARCL 85 7? 
SETH 80 FD 11 SETH 30 BK 11 


SETH 9 PU FD 2 PD RT 94 FD 7 BKk 14 LT 90 
ARCR 32 35 RT 106 ARCR 32 35 


TQ T 


SETH AM PU FD 2 PDORT 9 FD7 BK 14 LT 90 FD 18 
RT 90 FD 5 RT9aFDSLTO90FDA4LT90FDSRTO9aOFDS RT 9 FD1S 


END 

Ta P 

SETH 0 PU FDS PDFD 15 BK 15 RT 90 FD 5 Ek 10 

END 

TO FIGURA :F 
IF GF = "PP 
IF GF = "TT 
IF OF = "RA 
IF GF = "CC 
IF GF = "DD 
IF GF = "RR 

END 
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Aplicaciones 


PROGRAMA 18. Letrotas 


Este programa permite escribir letras (incluída la 
(eñe) de gran tamaño, con un color elegido al azar pa- 
ra cada palabra (véase la figura 28). Los procedimien- 
tos utilizados se listan a continuación y deben ser 
pulsados junto a MAKE "STARTUP [INICIO] antes de guar- 


dar el programa. 


Al recuperar el programa comienza automáticamente a 
ejecutarse con el mensaje inicial de la figura 29. 
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Figura 29 


PROGRAMA 18 


TO INICIO 

¿ASPECT 0,9 DOUBLECOLOR FIUILLSCREEN BG 1 PC 0 P 
MAKE "HIS [IPULSA.EL.PUNTO. PAR 
CA a ÓN TECLER.LA.COM 


LI SETXY - 155 80 PD 
R.DEJAR, UH 
R.PARA 


FD 25 RT 90 FI 12 RT 90 FD 12 RT 90 FI 12 PU SETXY XCOR + 20 YCOR - 13 SETH A 


FD 25 BK 25 RT 90 FD 12 LT 90 FDO 25 PL BK 25 RT 9aFDE PDLT 9 


FD 25 BK 25 RT 90 FD 12 
PLIFD 8 PD LT 90 
END 


TOS 

PL SETXY XCOR + 12 YCOR + 25 PD SETX XCOR - 12 SETY YCOR - 12 SETX «COR + 12 SE 
TY WCOR - 13 SETX XCOR - 12 PU SETX XCOR + 20 PD 

END 


TOA 
FD 25 RT 90 FD 12 RT 94 FD 12 AT 90 FD 12 BK 12 LT 9 FD 43 LT 98 PU FD8 LTS 
PD 


nm. 
PL SETX COR + 20 PD PC ( RANDOM 14 > + 2 
END 
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FD 25 RT 94 FO 12 BK 12 LT 90 Ek 12 RT 90 Fn 12 PK 12 RT 90 FD 13 LT 90 FD 12 P 
LFDSPDLTOS 

END 

TON 


FDO 25 SETXY XCOR + 12 "COR - 25 FD 25 
PU SETXY XCOR + £ YCOR - 25 PD 
END 


TO T 

PU SETY "COR + 25 RT 90 PD FD 12 Pk6LT 90 Ek 25 
PU SETX COR + 14 PD 

END 


TOO 
REPEAT 2 (FO 25 
PL SETX COR + 
ENT 


RT 90 FD 12 RT 20] 
28 PD 


TOR 

FDO 25 RT 90 FD 12 RT 90 FD 12 RT 9 FD 12 SETXY XCOR + 12 YCOR - 13 SETH O PILIS 
ETX XCOR + 8 PD 

END 


TO D 

FI 25 RT 90 FD 7? SETXY XCOR + 5 YCOR - 5 RT 90 FD 15 SET XCOR - 5 "COR - 5 SE 
TH A SETX XCOR - 7 

PL SETX XCOR + 28 PD 

END 


TO J , 
FD 8 BkK 8 RT 90 FD 12 LT 99 FD 25 PU Bk 25 RT:9 FD 8 PD LT 9 
END 


TOL 

FD 25 RT 90 FD 12 BK 12 LT 90 Bk 25 RT 9 FD 12 
PU FO 8 PD LT 90 

END 


TO 1 
PU FD 25 RT 94 FD 2 PDFD 8 BKk 4 RT 90 FD 25 LT 90 Bk 4 FD80PUFD 10 PD LT om 
END 


TOM 

FD 25 SETXY XCOR + 6 WCOR - 12 SETXY XCOR + 6 "COR + 12 BK 25 
PU SETX COR + 8 PD 

END 


TO. 

FD 21 SETXY XCOR + 12 YCOR - 21 FD 21 
PU FD 4 LT 99 FD 2 PD FD 8 RT 9a 

PL SETX'" XCOR + 18 YWCOR - 25 PD 

END 


TO EE 
IF :HIS = [7 MAKE "RR RC ELSE MAKE "RR FIRST :HIS MAKE "HIS BF :HIS 
MAKE "HI € FPUT :RR [J ) 
RUN :HI 
IF XCOR > 143 PL SETXY - 155 COR - 30 
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PD IF YCOR > 92 SETXY - 155 80 CS 
EE 
END 


TO K 

FD 25 BK 12 SETXY XCOR + 12 COR + 12 PU SETY YCOR - 25 PD SETXY XCOR - 12 YCOR 
+ 13 

PLI SETXY XCOR + 20 YCOR - 13 PD 

END 


TO Y 

PU SETWY YCOR + 25 PD SETXY XCOR + 6 WCOR - 12 BK 13 FD 13 SETXY XCOR + 6 YCOR + 
12 

PU SETXY XCOR + 8 WCOR - 25 PD 

END 


TO 2 

SETXWY XCOR + 12 WCOR + 25 SETX XCOR - 12 PL SETY WCOR - 25 PD SETX XCOR + 12 
PU SETX XCOR + 8 PD 

END 


TO X 

SETX'Y XCOR + 12 YCOR + 25 PL) SETX XCOR - 12 PD SETXY XCOR + 12 YCOR - 25 
PI SETX XCOR + 8 PD 

END 


TOF 

FD 25 RT 90 FD 12 BK 12 LT 90 BK 12 RT 90 FD 12 PU SETXY XCOR + 8 WCOR - 13 
PD LT 90 

END 


10 Y 
PU FD 25 PD SETXW XCOR + 6 VCOR - 25 SETXY XCOR + 6 YCOR + 25 PU BK 25 
SETK XCOR + 8 PD 

END 


TO H 

FD 25 RT 90 PU FD 12 PD RT 90 FD 12 RT 90 FD 12 BK 12 LT 90 FD 13 LT 90 
PU FI 8 LT 99 PD 

END 


TO ll 

FD 25 BK 25 SET de XCOR + 6 YCOR + 1M SETXY XCOR + 6 YCOR - 19 FD 25 
PL SETXY XCOR + 8 "COR - 25 PD 

END 


LES 
OP EG RANDOM 16 
END 


100 
REPERT 2 [FD 25 RT 99 FD 12 RT 94] 


Be SETXY XCOR + 7 WCOR + 5 RT 135 PD FD 14 PU BK 14 SETXY COR + 13 YCOR - 5 PD 
SETH A 
END 


TOG 

FI 25 RT 90 FO 12 BK 12 LT 90 BK 25 RT 90 Fn 12 
LT 94 FD 13 LT 90 FD 6 

Pl SETXY XCOR + 14 YCOR - 13 SETH A PD 

END 
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TO B 
FD 25 RT 90 FD 7 SETXY XCOR + 5 "COR - 5 SETY WCOR - 2 SETXY XCOR - S WCOR - 5 
SETX XCOR - 7 SETX XCOR + 7 SETXY XCOR + 3 WCOR - 5 SETWY WCOR - 3 SETXY XCOR - 5 


YCOR - 5 SETH M SETX XCOR - ? 
PL SETX XCOR + 28 PD 
ENT 


PROGRAMA 19. Organo 


Se trata de un sencillo programa musical que convier 
te a las dos filas superiores de letras del teclado en 
un órgano electrónico. Deben pulsarse los procedimien- 
tos presentados a continuación y READ "MUSIC e INICIO 
antes de SAVE "ORGANO. Con READ "ORGANO se dispone de 
un Órgano electrónico. 


PROGRAMA 19 


TO INICIO 
TEXTSCREEN CLEARTEXT 


CURSOR 13 10 PRIORGANO] 
CURSOR 19 13 PR IELECTRONICO) 
MAKE "L [1 OR 

END 

TO OR 
MAKE "L RC 
IF FIRST :L = "A SING [0] OR 
IF FIRST :L = "bl SING [1] OR 
IF FIRST :L = "S SING [2] OR 
IF FIRST :L = "E SING [3] OR 
IF FIRST :L = "D SING [4] OR 
IF FIRST :L = "F SING [5] OR 
IF FIRST :L = "T SING [6] OR 
IF FIRST :L = "G SING (71 OR 
IF FIRST :L = "Y SING [87 OR 
IF FIRST :L = "H SING [9] OR 
IF FIRST :L = "U SING (107 OR 
IF FIRST :L = "J SING [11] OR 
IF FIRST :L = "K SING [12] OR 
IF FIRST :L = "0 SING [13] OR 
IF FIRST :L = "L SING [14] OR 
IF FIRST :L = "P SING [15] OR 
IF FIRST :L = ": SING (163 OR 
IF FIRST :L = "; SING [17] OR 
IF FIRST :L = "%* SING (187 OR 
IF FIRST :L = "= SING [19] OR 
OR 

END 


PROGRAMA 20. Morse 


Este programa permite aprender el código Morse con 
sonidos y símbolos de puntos y rayas. Se pulsan los 
procedimientos siguientes y READ "MUSIC e INICIO antes 
de guardar en diskette el programa. Después de recupe- 
rar el programa basta pulsar las letras o números del 
teclado para emitir en Morse como se indica: 


MORSE 
PUEDES COMENZAR, .. 
TECLEA PARA TRANSMITIR, 


Los. 


MADCOZME ZC Nm ooo 
í 
: 


Listado del programa: 


PROGRAMA 20 


TOR 
MOR RE 
END 


TO. 
ssH 15 
END 


TO MOR :A 
IF 
IF 
IF 
IF 


"RPRIA.-1.RQO 
"BPRIB=...JR... 
"'CPRIC--IR.R. 
"DPR(D-..JR..Q 


Ds» 


DDDD 
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IF :A="EPRIE.1.0Q 
IF CA = "FPR ICF ,.-.] R.A 
IF A="GPRIG--TRR.A 
IF GA= "HPRIH ....J. a 
IF :A="IPRI[T....0Q 
IF CA= "JPR EJ .-—-1.PRRRE 
IF CA= "KPRIK-.-7R,RQA 
IF :A= "LPR IL .-..J.R..Q 
IF CA= "MPR [M--JRRA 
IF CA= "NPRIN-.JR.Q 
IF GA = "0 PR [O --—JRRREA 
IF CA = "PPRIP .-.].RR.,Q 
IF :A="QPR [A -<—.-)RR.RO 
IF :A= "RPRIR.-.1.R.40 
IF GA ="S PR IS ...1 a 
IFA ="TPRIT-IRA 
IF A = "UPR (VU... ¿RA 
IF CA = "Y PR IVY ...-] RA 
IF CA = "PRIX =..1R..ROQ 
IF GA= "PR IV. —IR.RRO 
IF GA= "Z2PRIZ-—.JRR..Q 
IF CA= "1 PR [1 ¿1 .RRARRO 
IF :A= "2PR (2... .RRROA 
IF GA=s "3PR (3 ...ocd. RARO 
IF :A= "4 PR [4 ....ecdao. RQ 
RS | 
IFCA="6EPRIÉ6—. JR... .( 
IF CA = "7? PRI? -—...JRR...0Q 
IF GA = "8 PR [8 -—..JRRR.,.Q 
IF GA = "9PR [9 -—-.JRRRR.GO 
IF As "APR [A ----- IRRRRRA 
PRITA 
END 
TOR 
35H 1 SSH 15 
END 
TO INICIO 


TEXTSCREEN CLEARTEXT 

CURSOR 14 19 PR [MOR S El 

CURSOR 7 13 PR [PUEDES COMENZAR... 
CURSOR 6 15 PR [TECLEA PARA TRANSMITIR, ] 
MOR RC 

END 


PROGRAMA 21. Botar 


Este programa y los dos siguientes son ejemplos de 
simulación de fenómenos físicos. Botar muestra una pe- 
lota rebotando entre el suelo y dos paredes (véase la 
foto 10 y la figura 30 en la que no aparece la pelota 
por ser un duende). Produce ruido en los choques. Los 
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procedimientos adjuntos se deben guardar con SAVE "''BO- 
TAR. Para ejecutar el programa tras recuperarlo del 
disco del lector con SAVE '"'BOTAR, se necesita insertar 
el Utilities Disk y ordenar READ "MUSIC READ '"SPRITES 
READSHAPES; 'SHAPES INICIO. 


Figura 30 


Fotografía 10 
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PROGRAMA 21 


TO ANDAR :Yw 
SETXY XCOR + :YX YCOR + :WY 
IF WCOR < - 75 SSH 1 MAKE "YY YY xk C(-1>) 
IF ANYOF XCOR < - 155 XCOR > 155 NOTE 11 1 MAKE "YX YX * (- 1) 
IF COR < - 80 PL REPE 
ANDAR : YY - 1 
END 


TO REPE 
CS PC A SETXY - 155 8 PD SETY - 80 SETX 155 SETW 84M PU SETXY - 155 ( - 80 ) PD 
PC ( 2 + RANDOM 14 > 
MAKE "YX 2 + RANDOM 5 
MAKE "Yw 12 + RANDOM 9 
ANDAR :Yw 
ENT 


TO INICIO 

DOUBLECOLOR FULLSCREEN CS BG 1 
PC 5 Pu 

TELL Q HT TELL 2 ST REPE 

END 


PROGRAMA 22. Paredes 


Este programa muestra una bola de billar rebotando 
en la mesa. Se debe teclear los procedimientos mostra- 
dos a continuación y pulsar SAVE "PAREDES. 


Para ejecutar el programa se lee del disco del lec- 
tor con READ "PAREDES y se inserta el Utilities Disk 
ordenando READ '"SPRITES READSHAPES "SHAPES INICIO. 


PROGRAMA 22 


TO ANDAR 
SETRWY XCOR + :YX "COR + :YY 
IF ANYOF YCOR > 195 WCOR € - 103 MAKE "Yw YY *k ( —- 
IF ANWOF COR > 149 %COR € - 149 MAKE "YX :Vx *k ( - 
ANDAR 

END 


TO REPE 

FULLSCREEN CS TELL A HT TELL 2 ST 

PU SETXY - 150 ( - 116 > PD SETX 158 SETWY 109 SETX - 15M SETY - 116 PU 
PC 1 HOME MAKE "YX 3 + RANDOM 5 

MAKE "YY 3 + RANDOM 5 

ANDAR 
END 
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TO INICIO 

DOUBLECOLOR FUILLSCREEN CS 

PC 5 PU SETXY - 150 ( - 90) PU 
TELL 9 HT TELL 2 ST REPE 

END 


PROGRAMA 23. Frontón 


Se trata de una representación tridimensional de los 
choques de una pelota en un frontón (figura 31). Se de 
be teclear los procedimientos siguientes y MAKE "START 
UR [INICIO] antes de salvar el programa. 


Figura 31 


PROGRAMA 23 


TO VUELO 
SETXY 59 + :Y 10 + :Z BK :X PD FD1 BK 1 PU 
MAKE "X :% + :T Mk :A MAKE "Y :Y + :T Ok :B MAKE "Z :Z + :TXx:C 
IF :X< 0 MAKE "A ( - A) 
IF ¿Y <Q MAKE "BC - :B> 
IF :Z <Q MAKE "C ( - :C> 
IF € ANYOF :%X > 240 :Y > 100 :Z > 100 > INICIO 
MAKE "C :C - :T 
VUELO 
END 


TO INICIO 

. ASPECT 0.9 DOUBLECOLOR FULLSCREEN CS HT PC 1 PU SETXY - 150 ( - 110 > PD SETH 
58 FD 240 SETX 150 SETX 50 SETW 119 

MAKE "X 160 + RANDOM 80 MAKE "A £ - 9 + RANDOM 4 ) 

MAKE "Y RANDOM 60 MAKE "B ( - 2 + RANDOM 2 > 

MAKE "Z 10 + RANDOM 50 MAKE "C RANDOM 6 

PU SETH 58 SETXW 50 + Y 10 + :Z BK :X MAKE "T 0.6 PC 14 VUELO 
END 
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Capítulo 10. Proyectos 
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LOGO aspira a que el lector "haga programas", más 
que a que vea, copie o juegue con programas ajenos. E- 
sa es la intención de este libro. Los programas del ca 
pítulo anterior no son programas acabados, sólo progra 
mas empezados. El lector debe mejorarlos, perfeccionar 
los,..., aquí se aportan algunas posibilidades. Tam- 
bién se sugieren algunas ideas para que los interesa- 
dos realicen programas y luego... | Se lancen y vuelen, 
den el gran salto y programen por sí mismos sus pro- 
pias ideas y planteamientos!. 


l Esto es lo que pretende Logo!. 


Como último programa se esboza un ejemplo clásico 
que imita la conversación del usuario con un psiquia- 
tra (el ordenador). Un resultado posible sería el diá- 
logo siguiente: 


- Túmbese en el diván, relájese y dígame cuál parece 
ser su problema. 

= Soy muy desdichado. 

- Por favor, prosiga. 

= Todos me odian. 

- Ud. afirma que todos le odian. 

= Nadie me quiere. 


Us. parece pensar que nadie le quiere. 

Todo el mundo se ha confabulado contra mí. 
Mucha gente tiene esos mismos sentimientos. 
Me matarán. 

Es normal pensar así, puede creerme. 


: Ud. no me comprende. 
- Continue, por favor. 
= Ud. es uno del complot. 


- Ud. dice que yo soy uno del complot. 


= Adios. 


- Me debe 10.000 pts. de la consulta. Ah, no deje de 


venir a verme pronto!. 


Debe pulsarse MAKE "STARTUP [INICIO] antes de salvar 


los procedimientos siguientes: 


PROGRAMA 24 


TO ENTR :A :TAB 
IF :TAB = [(J] OP [] 
IF :A = ( FIRST FIRST :TAB > OP FIRST :TAB 
OP ENTR :A BF :TAB 

END 


TO SUS.PA :ITEM :TAB 

MAKE "PS ( ENTR :ITEM :TAB > 
IF PS = [] 0P :ITEM 

OP LAST :PS 

END 


TO ELIGE :N :% 
IF :N = 1 0P FIRST :% 
OP ELIGE :N - 1 BF :x 
END 


TO CONTINUAR 
PR AZAR ¿CONTINUACIONES 
END 


TO AZAR :X 
OP ELIGE € 1 + RANDOM £ COUNT :% 33 3% 
END 


TO RESPONDER :RESP 
PR SE ( AZAR ¡APRECIACIONES > ( CAM.FRA :RESP > 
END 


TO SUS ¿LIS :TAB 

IF ¿LIS = [(] OP (] 

OP FPUT ( SUS.PA ( FIRST ¿LIS > ¿TAB > SUS BF ¿LIS 
END 


¿TAB 
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TO CAM.FRA :FRA 
OP SUS :FRA :PRONOMBRES 
END 


TO REPE 
MAKE "RESP RA 
IF :RESP = [ADIOS] PR [ME DEBE 19000 PTS DI -ONSULTA. !AH. HO DEJ 
PS ela E LA E LTA. !AH.NO DEJE DE VENIR A 
IF 1 = RANDOM 2 CONTINUAR ELSE RESPONDER :RESP 
REPE 
END 


TO INICIO 
TERTSCREEN CLEARTERT 

MAKE "APRECIACIONES CCUD. PARECE PENSAR QUEJ CUD. AFIRMA QUEJ CUD. DICE QUEJI 
MAKE "CONTINUACIONES CCCONTINLE, POR FAVOR] [POR FAVOR, PROSIGA] [MUCHA GENTE T 
TENE ESOS MISMOS SENTIMIENTOS] CES NORMAL PENSAR ASI. PUEDE CREERMEJ] 

MAKE "PRONOMBRES CCYO UD, J CUD. YO] CME LEJ CLE MEJ CERES S0W] [SOY ES] CES SOY 
3 CMI SUJ [SU MIJJ q 
PR ETUMBESE EN EL DIVAN,RELAJESE Y DIGAME CUAL PARECE SER SU PROBLEMAJ 
END 


Repasando los programas del libro, se sugieren algu- 
nos proyectos de modificación de dificultad variable. 


Programa 1: Traductor. Ampliar las primitivas conver 
tidas al castellano o al idioma que se quiera. Supri- 
mir los nombres completos y utilizar exclusivamene a- 
breviaturas. 

Programa 2: Rosal. Cambiar la disposición y el núme- 
ro de flores que aparecen, o suavizar la forma de las 
rosas con procedimientos del archivo Arcs. 

Programa 3: Palabra. Cambiar la dinámica del juego. 
Convertirlo, por ejemplo, en algo parecido a los 'cate 
tos' con "familias" de personajes de la TV. Transfor- 
marlo para uno o dos jugadores, uno introduce los nom- 
bres y otro debe acertarlos con el menor número de in- 
tentos posibles. 

Programa 4: Formas. Ampliar el número de configura- 
ciones con las formas de los Dados. Presentar en una 
sola pantalla a todos los animales, vehículos, dados, 
posiciones de la corredora,... 

Programa 5: Melodías. Incrementar el número de can- 
ciones. Perfeccionar el tiempo de mantenimiento de ca 
da nota y otras características del sonido. 
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Programa 6: Reloj. En el capítulo 8 se han aportado 
algunas sugerencias. 

Programa 7: Dib-geom. Ensayar y estudiar el efecto 
de los parámetros de entrada en los algoritmos pro- 
puestos. Enriquecer los procedimientos para crear o- 
tros dibujos. Convertirlo en un programa aleatorio au 
toalimentado que va cambiando las figuras indefinida- 
mente. 

Programa 8: Hilos. Modificar la posición de los pun 
tos (clavos) exteriores y alterar el orden de cone- 
xión de los hilos. Obtener corazones, mariposas,... 

Programa 9: Olfato. Restringir la libertad de movi- 
mientos del "animal", por ejemplo introduciéndolo en 
un laberinto y/o dotarle de nuevos sentidos o perpec-— 
ción direccional o memoria. 

Programa 10: Pintura. Elaborar más refinadamente el 
procedimiento Andar, por ejemplo, obteniendo pintu- 
ras simétricas respecto a uno o dos ejes vertical o/y 
horizontal o con simetría central. Incluir efectos so- 
noros simultáneamente. 

Programa 11: Disparo. Ampliar o reducir el radio del 
blanco. Representar en pantalla unas referencias de án 
gulos (10, 20, 30 grados) y una escala de distancias 
para facilitar el disparo. Someter al proyectil a un 
campo gravitatorio con trayectorias parabólicas y no 
rectilíneas. Sustituir las melodías. 

Programa 12: Nave. Alterar los mandos de guía para 
que el Joystick no sea necesario, mediante uso de te- 
clas de control. Emplear efectos sonoros. Complicar el 
juego con períodos de alejamiento del perseguidor o 
"saltos espaciales' hacia otro punto como ayuda a la 
supervivencia. 

Programa 13: Conducir. Dotar de más '"'inteligencia" 
al procedimiento de búsqueda de los perseguidores para 
que acorralen al jugador con más rapidez. Establecer 
"ventanillas de escape" en el marco exterior para elu- 
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dir el acoso debiendo reingresar al espacio por otra 
"ventanilla". 

Programa 14: Nim. Modificar las condiciones del ¡jue- 
go, pudiendo retirarse entre una cerilla y el doble o 
triple de la cantidad apartada en la jugada anterior. 
Descubrir el algoritmo infalible de la máquina con los 
cambios incorporados. Representar el número de ceri- 
llas junto al texto para mayor claridad. 

Programa 15: Cerco. Ampliar el número de caballos u 
otros animales en el cercado. Disponer de alguna salida 
hacia el exterior o algún objeto (comida) hacia el que 
se dirija el caballo. Permitir algún control,mediante 
Joystick,del caballo para sortear los cactus. Añadir 
efectos sonoros. 


Programa 16: Dados. Modificar la trayectoria seguida 
por los dados, permitiendo que choquen contra el suelo 
y las paredes como en el programa Botar. Cambiar el 
juego del póquer por otras variantes de juegos con dis 
tintos números de dados. Llenar la pantalla con dados 
aleatoriamente dispuestos. Alterar las figuras de los 
duendes presentardo un punto (as), K y 8 en rojo y Q, 
J y 7 en negro como los habituales dados del póquer. 

Programa 17: Ajedrez. Incluir más partidas famosas 
en el procedimiento partidas. Cambiar o perfeccionar 
la forma de las fichas (los peones, por ejemplo) o el 
aspecto del tablero. Presentar un contador de jugadas 
en pantalla. Crear un programa similar para jugar a 
las damas en tableros de 8 x 8 6 10 x 10, con fichas y 
damas negras y blancas. 

Programa 18: Letrotas. Diseñar procedimientos para 
dibujar también los números y los demás símbolos del 
teclado. Permitir una variación del tamaño de las le- 
trotas utilizando un factor de escala. 

Programa 19: Organo. Dibujar en pantalla el teclado 
de un piano con los caracteres equivalentes del micro 
ordenador. Añadir una segunda escala musical. Presen- 


tar la nota DO, RE,... simultáneamente a la emisión 
del sonido correspondiente. 

Programa 20: Morse. Disponer de una prueba que oscu-= 
rezca la pantalla y solamente se emitan los sonidos de 
un mensaje al azar, el jugador debe teclear lo que re- 
cibe y se puntúa el índice de aciertos. Incluir la 
transmisión por destellos apagando y encendiendo toda 
o parte de la pantalla. 

Programa 21: Botar. Combinar el efecto sonoro de cho- 
que con un sonido durante el vuelo de frecuencia varia 
ble con la altura de la pelota. Modificar el amortigua 
miento tras rebotar en el suelo. 

Programa 22: Paredes. Aumentar la rapidez de movi- 
miento sobre la mesa de billar. Incorporar otras bolas 
u objetos para aumentar el número de choques. Añadir 
efectos sonoros. 

Programa 23: Frontón. Convertir el fronton en una ca 
ja cerrada con permanentes choques. Anular el efecto 
de la gravedad para simular una molécula de un gas con 
tenida en un recipiente. 

Programa 24: Psiquiatra. Perfeccionar el programa a- 
tendiendo a la conversión de formas verbales, pronom- 
bres,... Enriquecer la estructura del programa. 
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Anexo Í. Archivo traductor 


Se presenta en este anexo el listado de un posible 
traductor inglés-castellano de sentencias Logo. Trans 
forma todas las instrucciones gráficas y algunas órde 
nes de gran uso como MAKE (= HAZ), REPEAT (= REPITE), 
RANDOM (= AZAR),+.+ Ocupa el 20% de la memoria de no- 
dos, lo que no restringe apenas la extensión de los 
programas a realizar. La rapidez de ejecución no su-= 
fre ninguna disminución apreciable respecto a cuando 
se utilizan primitivas originales. 


Este programa sirve de modelo para aquellos usuarios 
que deseen traducir estas u otras instrucciones a cual 
quier lengua. Se recuerda que al teclear los procedi- 
mientos no es preciso incluir el END que figura al fi- 
nal. 


PROGRAMA 1 


= 


T 
E 
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RUGRAMA 1 


O AZAR :N 
OP RANDOM :N 
ND 


TO DOBLECOLOR 
DOUBLECOLOR 
END 

TO SIMPLECOLOR 
SINGLECOLOR 

END 

TO INVISIBLE 
HT 

END 

TO VISIBLE 

j 


$ 
END 


TO PLUMABAJA 
PD 

END 

TO PLUMASUBE 


TO IZQUIERDA :N 
LT :N 
END 
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TO DERECHA :N 
RT N 
END 


TO ATRAS :N 
BK :N 
END 


TO ADELANTE :N 
FD :N 
END 


TO ORIGEN 
HOME 
END 


TO OR 
HOME 
END 


TO FONDO :N 
BG :N 


TO PLUMACOLOR :N 
PC :N 
END 


TO ESCRIBE :N 
STAMPCHAR :N 
END 


TO ES :N 
STAMPCHAR :N 
END 


TO TEXTOFO :N 
TEXTBG :N 
END 


TO TEXTOCO : 
TEXTCOLOR : 
END 


TO PANTALLAGRAF ICA 
FULLSCREEN 
END 


TO PANTALLATEXTO 
TEXTSCREEN 
END 


TO PANTALLAMIXTA 
SPLITSCREEN 
END 


TO BORRAPANTALLAGRAF ICA 
CLEARSCREEN 
END 


TZ 


TO BPG 
CLEARSCREEN 
END 


TO BORRAPANTALLATEXTO 
TEXTSCREEN 
END 


TO BPT 
TEXTSCREEN 
END 


TO DIBUJAR 
DRAL 
END 


TO NODIBUJAR 
NODRAL 
END 


TO ENVOLYER 
WRAP 
END 


TO NOENVOLVER 
NOWRAP 
END 


TO XY :A :B 
SETXY ¿A :B 
END 


TO % :A 
SETA :A 
END 


TO Y :A 
SETY :A 
END 


TO ORIENTACION? 
HEADING 
END 
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TO ORIENTA :A 
SETH :A 
END 


TO SITUACION 
DRAWSTATE 
END 


TO REPITE :A :B 
REPEAT :A :B 
END 


TO ELEMENTO :A :B 
OP ITEM :A :B 
END 


TO HAZ :A :B 
MAKE :A :B 
ENT 


También se ofrece un programa-ejemplo, denominado 
ROSAL, que emplea todas las sentencias en español, por 
lo que debe leer el programa-traductor antes de ejecu- 
tarse. 


PROGRAMA 2 


PROGRAMA 2 


TO RECTANGULO 
REPITE 2 [AD 40 12 98 AD 10 12 96] 
END 


TO ROSA :N 
PLUMACOLOR ELEMENTO :C + :N[624568 911 12 1 
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PS ORIENTA - 98 + ( :H - 17318 x70(- 100 > PE 
AD 40 DE 45 AD 30 12 435 AD 20 DE 435 
AT 30 12 45 AD 48 DE 90 AT 25 
REPITE 8 [CAD 40 12 45] AD 13 DE 90 
AD 40 12 45 AT 30 DE 45 AD 20 12 45 
AD 30 DE 45 AD 44 12 90 AD 16 12 9a 
PS FD 128 PB RECTANGULO 
AD 25 12 99 AT 13 RECTANGULO 

END 


TO ROSAL 

DOBLECOLOR INVISIBLE PANTALLAGRAF ICA 
¿«ASPECT 0.9 FONDO 1 

HAZ "C € - 3 + AZAR 6 > 

ROSA 4 ROSA 6 ROSA 8 
END 


Anexo ll. Programas ofrecidos en el Utilities Disk 


Los usuarios del CBM 64 disponen de este diskette, 
que no está protegido contra copias, a diferencia del 
que contiene el lenguaje. El manual aconseja duplicar- 
lo para prevenir algún daño accidental por exceso de 
uso (el disco LOGO puede remplazarse por medio del ven 
dedor en el infrecuente caso de deterioro) 


Contiene un. nutrido paquete de programas principal-= 
mente para el usuario neófito que puede tardar en con- 
vencerse de las ventajas del Logo. Basta uno sólo de 
estos programas, Textedit, que permite disponer de un 
editor de texto (con el que se ha escrito este libro), 
para justificar la compra del Logo. 


Aparte de los programas, ya comentados, relativos a 
duendes y música, así como esa pequeña maravilla de 
Textedit de facilísimo manejo, están presentes: 
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Procedimientos complementarios, de gran utilidad 
en campos específicos: 


Arcs, con instrucciones para dibujar arcos y cir- 
cunferencias. 

Base, para paso de un sistema de numeración a otro 
de base distinta. 

For, para quienes echen de menos los bucles al mo-= 
do del Basic. 

Log, para cálculos con funciones, logarítmicas o ex 
ponenciales. 

While, que define las instrucciones del Basic ex- 
tendido While y Until. 

B8W, para optimizar la señal en televisores de 
blanco y negro. 

Cchange, ejemplo en lenguaje máquina. Cambia colo- 
res en la pantalla gráfica. 

Colors, para no tener que recordar los números co- 
rrespondientes a cada color. 

Joy, para dibujar con el Joystick. 

Plotter, con procedimientos para utilizar el Plo- 
tter de 4 colores como periférico de salida (como 
ejemplos, véanse los dibujos de Dib-Geom obtenidos 
por Plotter). 


Dibujo 1 
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o. 0 


Dibujo 2 Dibujo 3 


Dibujo 4 


- Printpict, es un programa que permite hacer 'co- 
pias' en la impresora de la pantalla gráfica. Es 
el único hecho en Basic Si bien es lento, debería 
estar en código máquina, y se pierden los colores 
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y el contraste, se aplasta y disgrega el dibujo,.. 
es muy útil. Todas las figuras del LIBRO se han 
realizado con este programa. 

- Stamper y Stampfd, para representar textos en cual 
quier dirección y sentido de la pantalla gráfica. 

- Teach, un sistema alternativo a TO y DEFINE para 
escribir procedimientos. 

- Instant, es un conjunto de procedimientos que per- 
miten a un niño de 4-5 años (bastan conocimientos 
de prelectura), dirigir a la tortuga y realizar di 
bujos. Pedagógicamente es de gran interés para con 
solidad aspectos espaciales, lateralidad,... Es un 
modelo de EASY LOGO para'dirigir un ordenador des- 
de la edad más temprana. Tiene una estructura muy 
diáfana para quien sabe programar Logo y permite 
ampliar sus posibilidades. 

Programas de demostración, para poder analizar su es- 

tructura (que el manual explica detenidamente en algu- 

nos casos): 

- Tet, uno de los incontables ejemplos de procedi- 
mientos recursivos (luego se explicará la recursi- 
vidad) que dibuja complejas figuras geométricas. 

- Snow, copo de nieve, la evolución (jrecursiva!) de 
las famosas islas de Koch. 


Dibujo 5 
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Dynatrak, simulación, otro campo propicio al Logo, 
de un fenómeno físico. 

Adventure, juego de aventuras como ejemplo eficaz 
de un tratamiento de listas. 

Animal, juego que va acumulando datos con una a-= 
vanzada gestión de listas. 

Grammar, con algunos procedimientos para generar 
frases aleatorias. De gran ayuda para escribir 
postales. 

INSPI.PIC1 e INSPI.PIC2, contiene la copia de una 
pantalla gráfica. 


Procedimientos de Ensamblador para lenguaje máquina: 
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Addresses, Amodes, Assembler y Opcodes, que serán 
apreciados por los usuarios especialistas, amigos 
del código máquina, 


Bibliografía 


Dado 


que en la actualidad sólo existen tres libros so- 


bre Logo escritos en castellano, se incluyen en esta 
relación algunos textos en inglés y francés. 


1.- 


"DESAFIO A LA MENTE". Seymour Papert. Ed. Galápa- 
go. Buenos Aires (Argentina). 


"ALAS PARA LA MENTE", Horacio Reggini. Ed. Galápa 
go. Buenos Aires (argentina). 


'"'APRENDIENDO LOGO". DAniel Watt. Byte Books/ 
McGraw Hill. Madrid. 


"TURTLE GEOMETRY". H. Abelson. MIT Press. Cambrid 
ge (EE.UU) 


"COMMODORE 64 LOGO PRIMER '. G. Bitter. Reston Pu 
blishing Co. Reston (EE.UU). "APPLE LOGO PRIMER" 
y CYBERLOGO PRIMER' son otras versiones del mismo 
autor y editorial. 


"LEARNING LOGO ON THE COMMODORE 64". A. McDougall 
Prentice Hall Int. Englewood (EE.UU). Otras ver- 
siones son "LEARNING LOGO ON THE APPLE 11" y 
"LEARNING LOGO ON THE TANDY COLOR COMPUTER. 


"LET'S TALK COMMODORE TURTLE". L. Nevile. Prenti- 
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11. 


12. 


13. 


19. 


20. 


21. 


22. 
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ce Hall Int. Englewood (EE.UU). Otra versión es 
"LET'S TALK APPLE LOGO". 


"SPECIAL TECNOLOGY FOR SPECIAL CHILDREN". P. Gol- 
denberg. Univers. Park Press. Baltimore (EE.UU). 


"LOGO: A GUIDE TO LEARNING THROUGH PROGRAMMING". 
Goodyear. Ellis Horwood. London (Reino Unido). 
'"'AN INTRODUCTION TO LOGO". J. Dale. Creative Com- 
puting Press. N. Jersey (EE.UU). 


"UNDERSTANDING LOGO". R. Peddicord. Alfred Publi- 
shing Co. Sherman Oaks (EE.UU).  ' 


"LOGO PROGRAMMING". P.Ross. Addison Wesley. Menlo 
Park (EE.UU). 


"1, 2, 3 MY COMPUTER € ME". D. Bearden. Prentice 
Hall. Int. Englewood (EE.UU). Otros libros de la 
misma autora y editorial son: 


'" A BIT OF LOGO MAGIC". 
"THE TURTLE'S SOURCEBOOK"'. 


'"PREMIERES PAS EN LOGO". Marie-Gaelle Monteil. 
Eyrolles. Paris 
"LOGO". G. Weidenfeld. Eyrolles. Paris. 


"INTRODUCING LOGO TO THE PRIMARY CHILD". L. Birch. 
Houghton Mifflin. Boston (EE.UU). 


"TEACHER, KIDS AND LOGO". C. Green. Educomp Publi 
cations. Irvine (EE.UU). 


'"PRIMARILY LOGO". Reston Publishing Co. Reston 
(EE.UU). 


"" THE TURTLE GOES TO KINDERGARTEN". K. Martin. 
Martin-Bearden, Inc. Irving (EE.UU). 


"THE WORKBOOK FOR LEARNING LOGO". Turtle Publi- 
shing. Montreal (Canada). 


23. 


24. 


25. 


26. 


27, 


28. 


29. 


30. 


31. 


32. 
33. 


34. 


35. 


36. 


37. 


38. 


"LOGO DISCOVERIES'". M. Moore. Creative Publica- 
tions. Palo Alto (EE.UU). De la misma autora y e- 
ditorial también es el libro: 


'"GEOMETRY PROBLEMS FOR LOGO DISCOVERIES". 


"ADVANCED LOGO: COMPUTING ABOUT THINKING". H. Nel 
son. Addison Wesley. Menlo Park (EE.UU). 


"LOGO FOR FUN". P. Parker. Scholastic Inc. New 
York (EE.UU). 


"LEARNING THROUGH LOGO". D. Stanger. Sunburst 
Comm. Pleasantville (EE.UU). 


"ADVENTURES IN LOGO". J. Tobias. McGraw Hill. New 
York (EE.UU). Otro libro continuación de éste es: 


"MORE ADVENTURES IN LOGO". 


'"DISCOVERING APPLE LOGO". D. Thornburg. Addison 
Wesley. Menlo Park (EE.UU.). 


"LOGO FOR THE APPLE 11'. H. Abelson. McGraw Hill. 
New York (EE.UU). Del mismo autor y editorial son: 


"APPLE LOGO". 
"TI LOGO", 


"EXPLORER'S GUIDE TO APPLE LOGO (MIT)". J. Webb. 
Hayden Book Co. Rochelle Park (EE.UU). Del mismo 
autor y editorial es también: 


"EXPLORER'S GUIDE TO APPLE LOGO (LCSI)". 


'"TURTLESTEPS: AN INTRODUCTION TO APPLE LOGO, AND 
TERRAPIN LOGO". P. Sharp. Brady Company. Bowie 
(EE.UU). De la misma autora y editorial son: 


"TURTLESTEPS: AN INTRODUCTION TO ATARI LOGO". 


'"TURTLESTEPS: AN INTRODUCIÓN TO IBM LOGO AND D.R. 
LOGO". 
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39.- "RUN WITH LOGO" W. Masalski. Milton Bradley. East 
Longmeadow (EE.UU). 


40.- "EXPLORING IBM LOGO: A GUIDE FOR ADULTS". S. Bu- 
rrowes. Holt, Rinehart and Winston. New York 
(EE.UU). 


106 


LOGO 


LOGO (''Razón, lógica” en griego) es el más evolu- 
cionado e inteligente lenguaje implantado en Mi- 
croordenadores. 


Para principiantes y para expertos, porque la facili- 
dad de aprendizaje se complementa con unas cuali- 
dades únicas: Recursividad, tratamiento de listas,... 


Para niños (atención los padres), para científicos, 
ya que constituye una herramienta del aprendizaje 
y del pensamiento. 


Para estudiantes, escolares o universitarios, profeso- 
res, porque logra la auténtica alfabetización infor- 
mática. 

El libro no exige conocimientos previos y contiene 
abundantes ejemplos explicados. (Más de una vein- 
tena de programas). 


AS) SUN 2 


